Distance on a great circle

Time bar (total: 49.2s)

analyze1.5s (3.1%)

Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.8%0.2%0%0%0%0
0%0%99.8%0.2%0%0%0%1
0%0%99.8%0.2%0%0%0%2
0%0%99.8%0.2%0%0%0%3
0%0%99.8%0.2%0%0%0%4
0%0%99.8%0.2%0%0%0%5
0%0%99.8%0.2%0%0%0%6
0%0%99.8%0.2%0%0%0%7
0%0%99.8%0.2%0%0%0%8
0%0%99.8%0.2%0%0%0%9
0%0%99.8%0.2%0%0%0%10
0%0%99.8%0.2%0%0%0%11
0%0%99.8%0.2%0%0%0%12
Compiler

Compiled 71 to 27 computations (62% saved)

Precisions
Click to see histograms. Total time spent on operations: 938.0ms
ival-mult: 282.0ms (30.1% of total)
ival-cos: 151.0ms (16.1% of total)
ival-sub: 116.0ms (12.4% of total)
ival-sin: 109.0ms (11.6% of total)
ival-div: 66.0ms (7% of total)
ival-pow: 66.0ms (7% of total)
ival-sqrt: 63.0ms (6.7% of total)
ival-atan2: 46.0ms (4.9% of total)
ival-add: 31.0ms (3.3% of total)
const: 7.0ms (0.7% of total)
backward-pass: 2.0ms (0.2% of total)

sample7.5s (15.3%)

Results
6.4s7477×1valid
207.0ms779×0valid
Precisions
Click to see histograms. Total time spent on operations: 5.8s
ival-sin: 1.4s (24.1% of total)
ival-cos: 1.2s (21.1% of total)
ival-mult: 1.1s (19.6% of total)
ival-sub: 417.0ms (7.2% of total)
backward-pass: 360.0ms (6.2% of total)
ival-div: 334.0ms (5.8% of total)
ival-pow: 287.0ms (5% of total)
ival-sqrt: 267.0ms (4.6% of total)
ival-atan2: 210.0ms (3.6% of total)
ival-add: 134.0ms (2.3% of total)
const: 30.0ms (0.5% of total)
Bogosity

preprocess237.0ms (0.5%)

Algorithm
2×egg-herbie
Rules
2156×sum4-define
2132×sum3-define
1640×fnmadd-define
1464×fnmadd-define
1344×fma-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
02341374
15461315
214231315
342361303
02665
15563
211763
329063
470463
5143363
6342163
7544363
8696063
0808663
Stop Event
1×iter limit
1×node limit
1×node limit
Calls
Call 1
Inputs
(* 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)))))))))
Outputs
(* 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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Call 2
Inputs
(* 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)))))))))
(* (neg R) (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(neg (* (neg 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))))))))))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))))))))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))))))))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))))
(* lambda1 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- R lambda2) 2))) (sin (/ (- R lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- R lambda2) 2))) (sin (/ (- R lambda2) 2)))))))))
(* lambda2 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 R) 2))) (sin (/ (- lambda1 R) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 R) 2))) (sin (/ (- lambda1 R) 2)))))))))
(* phi1 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- R phi2) 2)) 2) (* (* (* (cos R) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- R phi2) 2)) 2) (* (* (* (cos R) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* phi2 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 R) 2)) 2) (* (* (* (cos phi1) (cos R)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 R) 2)) 2) (* (* (* (cos phi1) (cos R)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda2 lambda1) 2))) (sin (/ (- lambda2 lambda1) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda2 lambda1) 2))) (sin (/ (- lambda2 lambda1) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (* (* (cos lambda1) (cos phi2)) (sin (/ (- phi1 lambda2) 2))) (sin (/ (- phi1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (* (* (cos lambda1) (cos phi2)) (sin (/ (- phi1 lambda2) 2))) (sin (/ (- phi1 lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 lambda1) 2)) 2) (* (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (sin (/ (- phi2 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 lambda1) 2)) 2) (* (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (sin (/ (- phi2 lambda2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- lambda2 phi2) 2)) 2) (* (* (* (cos lambda2) (cos phi2)) (sin (/ (- lambda1 phi1) 2))) (sin (/ (- lambda1 phi1) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- lambda2 phi2) 2)) 2) (* (* (* (cos lambda2) (cos phi2)) (sin (/ (- lambda1 phi1) 2))) (sin (/ (- lambda1 phi1) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 lambda2) 2)) 2) (* (* (* (cos phi1) (cos lambda2)) (sin (/ (- lambda1 phi2) 2))) (sin (/ (- lambda1 phi2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 lambda2) 2)) 2) (* (* (* (cos phi1) (cos lambda2)) (sin (/ (- lambda1 phi2) 2))) (sin (/ (- lambda1 phi2) 2)))))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi2 phi1) 2)) 2) (* (* (* (cos phi2) (cos phi1)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi2 phi1) 2)) 2) (* (* (* (cos phi2) (cos phi1)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
Outputs
(* 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)))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(* (neg 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)))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R -2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2)))))))))
(* 2 (* R (atan2 (sqrt (fma (cos phi1) (* (sin (/ (+ lambda1 lambda2) -2)) (* (cos phi2) (sin (/ (+ lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (- 1 (fma (cos phi1) (* (sin (/ (+ lambda1 lambda2) -2)) (* (cos phi2) (sin (/ (+ lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2)))))))))
(* (atan2 (sqrt (fma (sin (/ (+ lambda1 lambda2) 2)) (* (cos phi1) (* (cos phi2) (sin (/ (+ lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (+ lambda1 lambda2) 2)) (sin (/ (+ lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2))) (sqrt (+ 1 (fnmsub (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* 2 (* R (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2)))))))
(neg (* (neg 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))))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (neg lambda1) lambda2) 2))) (sin (/ (- (neg lambda1) lambda2) 2))))))))))
(* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (+ lambda1 lambda2) -2)) (* (cos phi2) (sin (/ (+ lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (- 1 (fma (cos phi1) (* (sin (/ (+ lambda1 lambda2) -2)) (* (cos phi2) (sin (/ (+ lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R -2))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 (neg lambda2)) 2))) (sin (/ (- lambda1 (neg lambda2)) 2))))))))))
(* (atan2 (sqrt (fma (sin (/ (+ lambda1 lambda2) 2)) (* (cos phi1) (* (cos phi2) (sin (/ (+ lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (+ lambda1 lambda2) 2)) (sin (/ (+ lambda1 lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R -2))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- (neg phi1) phi2) 2)) 2) (* (* (* (cos (neg phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))))
(* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2))) (sqrt (+ 1 (fnmsub (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2))))) (* R -2))
(neg (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 (neg phi2)) 2)) 2) (* (* (* (cos phi1) (cos (neg phi2))) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))))
(* R (* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (+ phi1 phi2) -2)) 2))))) -2))
(* lambda1 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- R lambda2) 2))) (sin (/ (- R lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- R lambda2) 2))) (sin (/ (- R lambda2) 2)))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- R lambda2) 2)) (sin (/ (- R lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- R lambda2) 2)) (sin (/ (- R lambda2) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* 2 lambda1))
(* lambda2 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 R) 2))) (sin (/ (- lambda1 R) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 R) 2))) (sin (/ (- lambda1 R) 2)))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 R) 2)) (sin (/ (- lambda1 R) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 R) 2)) (sin (/ (- lambda1 R) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* 2 lambda2))
(* phi1 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- R phi2) 2)) 2) (* (* (* (cos R) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- R phi2) 2)) 2) (* (* (* (cos R) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (cos phi2) (* (sin (/ (- lambda1 lambda2) 2)) (* (sin (/ (- lambda1 lambda2) 2)) (cos R))) (pow (sin (/ (- R phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (sin (/ (- lambda1 lambda2) 2)) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (cos R))) (pow (sin (/ (- R phi2) 2)) 2))))) (* 2 phi1))
(* phi2 (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 R) 2)) 2) (* (* (* (cos phi1) (cos R)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 R) 2)) 2) (* (* (* (cos phi1) (cos R)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (sin (/ (- lambda1 lambda2) 2)) (cos R))) (pow (sin (/ (- phi1 R) 2)) 2))) (sqrt (+ 1 (fnmsub (sin (/ (- lambda1 lambda2) 2)) (* (cos R) (* (cos phi1) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi1 R) 2)) 2))))) (* 2 phi2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda2 lambda1) 2))) (sin (/ (- lambda2 lambda1) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda2 lambda1) 2))) (sin (/ (- lambda2 lambda1) 2)))))))))
(* (atan2 (sqrt (fma (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda2 lambda1) 2)) (sin (/ (- lambda2 lambda1) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda2 lambda1) 2)) (sin (/ (- lambda2 lambda1) 2))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (* (* (cos lambda1) (cos phi2)) (sin (/ (- phi1 lambda2) 2))) (sin (/ (- phi1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (* (* (cos lambda1) (cos phi2)) (sin (/ (- phi1 lambda2) 2))) (sin (/ (- phi1 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (* (cos phi2) (cos lambda1)) (pow (sin (/ (- phi1 lambda2) 2)) 2) (pow (sin (/ (- lambda1 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi2) (cos lambda1)) (pow (sin (/ (- phi1 lambda2) 2)) 2) (pow (sin (/ (- lambda1 phi2) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 lambda1) 2)) 2) (* (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (sin (/ (- phi2 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 lambda1) 2)) 2) (* (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (sin (/ (- phi2 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (sin (/ (- phi2 lambda2) 2)) (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (pow (sin (/ (- phi1 lambda1) 2)) 2))) (sqrt (+ 1 (fnmsub (sin (/ (- phi2 lambda2) 2)) (* (* (cos phi1) (cos lambda1)) (sin (/ (- phi2 lambda2) 2))) (pow (sin (/ (- phi1 lambda1) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- lambda2 phi2) 2)) 2) (* (* (* (cos lambda2) (cos phi2)) (sin (/ (- lambda1 phi1) 2))) (sin (/ (- lambda1 phi1) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- lambda2 phi2) 2)) 2) (* (* (* (cos lambda2) (cos phi2)) (sin (/ (- lambda1 phi1) 2))) (sin (/ (- lambda1 phi1) 2)))))))))
(* (atan2 (sqrt (fma (cos phi2) (* (* (cos lambda2) (sin (/ (- lambda1 phi1) 2))) (sin (/ (- lambda1 phi1) 2))) (pow (sin (/ (- lambda2 phi2) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi2) (cos lambda2)) (* (sin (/ (- lambda1 phi1) 2)) (sin (/ (- lambda1 phi1) 2))) (pow (sin (/ (- lambda2 phi2) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 lambda2) 2)) 2) (* (* (* (cos phi1) (cos lambda2)) (sin (/ (- lambda1 phi2) 2))) (sin (/ (- lambda1 phi2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 lambda2) 2)) 2) (* (* (* (cos phi1) (cos lambda2)) (sin (/ (- lambda1 phi2) 2))) (sin (/ (- lambda1 phi2) 2)))))))))
(* (atan2 (sqrt (fma (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (cos phi1) (cos lambda2)) (pow (sin (/ (- phi1 lambda2) 2)) 2))) (sqrt (+ 1 (fnmsub (pow (sin (/ (- lambda1 phi2) 2)) 2) (* (cos phi1) (cos lambda2)) (pow (sin (/ (- phi1 lambda2) 2)) 2))))) (* R 2))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi2 phi1) 2)) 2) (* (* (* (cos phi2) (cos phi1)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi2 phi1) 2)) 2) (* (* (* (cos phi2) (cos phi1)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* (atan2 (sqrt (fma (cos phi1) (* (sin (/ (- lambda1 lambda2) 2)) (* (cos phi2) (sin (/ (- lambda1 lambda2) 2)))) (pow (sin (/ (- phi2 phi1) 2)) 2))) (sqrt (+ 1 (fnmsub (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))) (pow (sin (/ (- phi2 phi1) 2)) 2))))) (* R 2))
Symmetry

(negabs R)

explain754.0ms (1.5%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
89118(6.1917654610444495e-164 9.594659164637209e+175 1.6533432214612785e-198 -8.060179492880953e-166 -8.651101071642924e-268)0-(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
65136(1.0869032026312493e+171 1.0253141467611454e+226 6.801842495981056e-295 -9.843008983358395e+135 -2.551178509781706e-228)0-(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
92(1.5825766939986311e-165 3.122684796718177e+50 3.7921565140682164e+249 -1.2906058309040126e-189 9.941034280850061e+25)1(1.2231610049250712e-243 2.4829267440129365e-201 -5.872305818192018e+168 -3.274762406540467e-271 -2.1528651901941885e-215)(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
00-0-(cos.f64 phi1)
00-0-(-.f64 phi1 phi2)
00-0-(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
00-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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
00-0-#s(literal 2 binary64)
00-0-(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
00-0-(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
00-0-(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
00-0-phi1
02(1.2920341824793472e+109 1145060955554291.3 1.2375450476581628e-240 -1.4676478390091792e+308 2.5618671256353656e-72)0-(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
00-0-(cos.f64 phi2)
00-0-lambda1
00-0-R
00-0-(-.f64 lambda1 lambda2)
00-0-(*.f64 (cos.f64 phi1) (cos.f64 phi2))
00-0-(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
00-0-(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
015(7.5323914665069265e-252 3.0900508109216423e+43 -2.0471378761839522e+230 9.933142771006128e-128 -7.187728620228164e-278)0-(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
00-0-(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
00-0-phi2
00-0-#s(literal 1 binary64)
00-0-lambda2
00-0-(*.f64 (*.f64 (*.f64 (cos.f64 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
564.0ms470×1valid
11.0ms42×0valid
Compiler

Compiled 862 to 80 computations (90.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 431.0ms
ival-cos: 118.0ms (27.4% of total)
ival-sub: 74.0ms (17.2% of total)
ival-sin: 73.0ms (16.9% of total)
backward-pass: 40.0ms (9.3% of total)
ival-mult: 39.0ms (9% of total)
ival-div: 27.0ms (6.3% of total)
ival-sqrt: 19.0ms (4.4% of total)
ival-add: 16.0ms (3.7% of total)
ival-pow: 13.0ms (3% of total)
ival-atan2: 12.0ms (2.8% of total)
const: 2.0ms (0.5% of total)

eval1.0ms (0%)

Compiler

Compiled 70 to 32 computations (54.3% saved)

prune2.0ms (0%)

Alt Table
Click to see full alt table
StatusAccuracyProgram
▶59.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶59.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Compiler

Compiled 140 to 58 computations (58.6% saved)

simplify145.0ms (0.3%)

Algorithm
1×egg-herbie
Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓cost-diff0
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓cost-diff0
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff0
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff0
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓cost-diff0
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
✓cost-diff0
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
✓cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Rules
2104×fnmadd-define
1992×sum3-define
1376×sum4-define
1290×fma-lowering-fma.f32
1290×fma-lowering-fma.f64
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
041792
190774
2203774
3526774
41167774
52296774
66542774
08226774
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
R
(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))
2
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
(* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))
(* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2)))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
(- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
1
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
2
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(* R 2)
R
Outputs
(* 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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
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) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))))
2
#s(literal 2 binary64)
(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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
(* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(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 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(- 1 (+ (pow (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 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (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)))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(* R 2)
(*.f64 R #s(literal 2 binary64))
R

localize517.0ms (1.1%)

Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓accuracy98.9%
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
✓accuracy77.6%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy99.3%
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
✓accuracy98.9%
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓accuracy77.6%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Results
391.0ms237×1valid
9.0ms19×0valid
Compiler

Compiled 799 to 42 computations (94.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 282.0ms
ival-sin: 81.0ms (28.8% of total)
ival-mult: 47.0ms (16.7% of total)
ival-cos: 42.0ms (14.9% of total)
ival-sqrt: 40.0ms (14.2% of total)
backward-pass: 19.0ms (6.7% of total)
ival-atan2: 13.0ms (4.6% of total)
ival-sub: 12.0ms (4.3% of total)
ival-div: 12.0ms (4.3% of total)
ival-add: 8.0ms (2.8% of total)
ival-pow: 7.0ms (2.5% of total)
const: 1.0ms (0.4% of total)

series191.0ms (0.4%)

Counts
14 → 600
Calls
Call 1
Inputs
#<alt (* 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)))))))))>
#<alt (* 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))))))))>
#<alt (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)))))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))>
#<alt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (pow (sin (/ (- phi1 phi2) 2)) 2)>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))>
Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (pow (sin (* -1/2 phi2)) 2)>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
Calls

150 calls:

TimeVariablePointExpression
35.0ms
lambda2
@0
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
9.0ms
lambda1
@-inf
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
5.0ms
phi1
@-inf
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
4.0ms
lambda2
@inf
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
4.0ms
lambda2
@inf
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))

rewrite569.0ms (1.2%)

Algorithm
1×batch-egg-rewrite
Rules
5714×*-lowering-*.f32
5714×*-lowering-*.f64
3376×+-lowering-+.f64
3376×+-lowering-+.f32
3132×/-lowering-/.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
041424
1223406
21936396
011141396
Stop Event
1×iter limit
1×node limit
Counts
14 → 240
Calls
Call 1
Inputs
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(sin (/ (- lambda1 lambda2) 2))
(sin (/ (- phi1 phi2) 2))
(- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- lambda1 lambda2) -2))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) R))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) R)
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))
(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))))
(/.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))))))
(/.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(/.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))) #s(literal 1/2 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(*.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))))
(/.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))))))
(/.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(/.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))) #s(literal 1/2 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(*.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) #s(literal 1/2 binary64)))
(*.f64 (hypot.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 4 binary64))
(pow.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64)))) #s(literal -1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(+.f64 (fma.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal 2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (neg.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (neg.f64 (/.f64 lambda2 #s(literal 2 binary64))))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (neg.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (neg.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (+.f64 (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (cos.f64 phi1)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (+.f64 (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (+.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (+.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)))) (fma.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))))) (cos.f64 phi2) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 phi1))))) (fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 phi1)))))
(+.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi1))))) (fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(-.f64 (/.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
(pow.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 1 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(+.f64 (fma.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (neg.f64 (/.f64 lambda2 #s(literal -2 binary64))))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (neg.f64 (/.f64 lambda2 #s(literal -2 binary64))))))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(+.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (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 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (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)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) #s(literal 1 binary64))
(fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64))
(fma.f64 (*.f64 (cos.f64 phi2) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (+.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))

simplify612.0ms (1.2%)

Algorithm
1×egg-herbie
Rules
7588×*-lowering-*.f32
7588×*-lowering-*.f64
4044×+-lowering-+.f64
4044×+-lowering-+.f32
1976×fma-lowering-fma.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
072525816
1252125199
0923825199
Stop Event
1×iter limit
1×node limit
Counts
600 → 600
Calls
Call 1
Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(pow (sin (* -1/2 phi2)) 2)
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 phi1 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) phi1)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 phi2 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda1 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal -1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda2 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (*.f64 phi1 (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 phi1 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) phi1)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 phi2 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda1 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) #s(literal -1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 lambda2 (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 phi1 phi1)) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 (+.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))))) (*.f64 phi1 phi1)) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (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))) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))) (*.f64 lambda1 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 lambda2 (-.f64 (*.f64 (*.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) lambda2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (+.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) (cos.f64 phi1))) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1/6 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 #s(literal -1/8 binary64) lambda2)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 lambda2 #s(literal 1/48 binary64))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 #s(literal -1/48 binary64))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 phi1 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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)))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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)))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (-.f64 (*.f64 phi2 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (*.f64 phi2 (+.f64 (*.f64 phi2 (-.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 lambda1 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))))) (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi2) (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 phi1))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (neg.f64 (*.f64 lambda2 (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 lambda2 (+.f64 (*.f64 lambda2 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1/6 binary64))))) (*.f64 (+.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) (cos.f64 phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(pow (sin (* -1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (*.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (*.f64 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64)))))) (*.f64 phi1 phi1)) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal -1/2 binary64))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 #s(literal -1/8 binary64) lambda1)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/6 binary64))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) lambda1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (*.f64 lambda1 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))) (*.f64 (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/12 binary64)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/12 binary64))))) (*.f64 (cos.f64 phi1) lambda1)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 lambda2 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1/12 binary64))))))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))

eval303.0ms (0.6%)

Compiler

Compiled 89384 to 3389 computations (96.2% saved)

prune369.0ms (0.8%)

Pruning

69 alts after pruning (69 fresh and 0 done)

PrunedKeptTotal
New1167691236
Fresh000
Picked202
Done000
Total1169691238
Accuracy
62.7%
Counts
1238 → 69
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.8%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
34.0%
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.0%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.9%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.1%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
39.4%
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
58.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
37.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶38.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
39.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
45.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
59.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
35.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
29.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶60.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
34.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
39.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
35.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
45.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
43.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
43.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
▶56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
58.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.2%
(*.f64 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶40.7%
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.3%
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
29.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.1%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
37.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
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 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
45.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
56.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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))))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #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))))))))))
Compiler

Compiled 10804 to 5538 computations (48.7% saved)

simplify256.0ms (0.5%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff6528
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓cost-diff6528
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓cost-diff6528
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff6528
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff0
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
✓cost-diff0
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
✓cost-diff0
(atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff0
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff384
(pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64))
✓cost-diff6912
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
✓cost-diff6912
(atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff6912
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff384
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
✓cost-diff384
(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
✓cost-diff768
(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
✓cost-diff768
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff320
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓cost-diff320
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓cost-diff320
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
✓cost-diff320
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Rules
3880×*-lowering-*.f32
3880×*-lowering-*.f64
2338×fma-lowering-fma.f32
2338×fma-lowering-fma.f64
2036×sum3-define
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
01062501
12512427
26972356
318762307
461762307
083722307
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
2
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(sin (/ phi1 2))
(/ phi1 2)
(cos (/ phi2 2))
(/ phi2 2)
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(cos (/ phi1 2))
(sin (/ phi2 2))
(* R 2)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
1/2
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
2
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
1
(cos (* (- lambda1 lambda2) 1))
(* (- lambda1 lambda2) 1)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
-1
(* R 2)
R
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2)
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
1/2
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
2
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
1
(cos (* (- lambda1 lambda2) 1))
(* (- lambda1 lambda2) 1)
(- lambda1 lambda2)
lambda1
lambda2
1/4
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(* R 2)
R
(* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))
(* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(cos phi2)
phi2
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
1/2
(- lambda1 lambda2)
lambda1
lambda2
2
(* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))
(sin (* phi2 -1/2))
(* phi2 -1/2)
-1/2
(+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))
(* phi1 (cos (* phi2 -1/2)))
phi1
(cos (* phi2 -1/2))
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (cos phi1) (cos phi2))
(cos phi1)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
(* R 2)
R
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
2
(* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))
(+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))))))
(sin (* lambda2 -1/2))
(* lambda2 -1/2)
lambda2
-1/2
(* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))
lambda1
(+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))))
(* 1/2 (cos (* lambda2 -1/2)))
1/2
(cos (* lambda2 -1/2))
(* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))
(+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))
(* -1/8 (sin (* lambda2 -1/2)))
-1/8
(* (cos (* lambda2 -1/2)) (* lambda1 -1/48))
(* lambda1 -1/48)
-1/48
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(* R 2)
R
Outputs
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.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 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.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 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
2
#s(literal 2 binary64)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
1
#s(literal 1 binary64)
(cos (* (- lambda1 lambda2) 1))
(cos.f64 (-.f64 lambda1 lambda2))
(* (- lambda1 lambda2) 1)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
-1
#s(literal -1 binary64)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2)
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))))
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
2
#s(literal 2 binary64)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
1
#s(literal 1 binary64)
(cos (* (- lambda1 lambda2) 1))
(cos.f64 (-.f64 lambda1 lambda2))
(* (- lambda1 lambda2) 1)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
1/4
#s(literal 1/4 binary64)
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64)))))))
(* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(cos phi2)
(cos.f64 phi2)
phi2
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(* 1/2 (- lambda1 lambda2))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
1/2
#s(literal 1/2 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
2
#s(literal 2 binary64)
(* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))
(*.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))))))
(sin (* phi2 -1/2))
(sin.f64 (/.f64 phi2 #s(literal -2 binary64)))
(* phi2 -1/2)
(/.f64 phi2 #s(literal -2 binary64))
-1/2
#s(literal -1/2 binary64)
(+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))
(+.f64 (sin.f64 (/.f64 phi2 #s(literal -2 binary64))) (*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64)))))
(* phi1 (cos (* phi2 -1/2)))
(*.f64 phi1 (cos.f64 (/.f64 phi2 #s(literal -2 binary64))))
phi1
(cos (* phi2 -1/2))
(cos.f64 (/.f64 phi2 #s(literal -2 binary64)))
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64)))))))))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64))))))))))))
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64)))))))))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64)))))))))
(+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))))))
(+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64))))))))
(sin (* lambda2 -1/2))
(sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))
(* lambda2 -1/2)
(/.f64 lambda2 #s(literal -2 binary64))
lambda2
-1/2
#s(literal -1/2 binary64)
(* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))
(*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64)))))))
lambda1
(+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))))
(+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/8 binary64))) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 lambda1 #s(literal -1/48 binary64))))))
(* 1/2 (cos (* lambda2 -1/2)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))))
1/2
#s(literal 1/2 binary64)
(cos (* lambda2 -1/2))
(cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))
(* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))
(*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))
(+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48)))
(+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))
(* -1/8 (sin (* lambda2 -1/2)))
(*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64))
-1/8
#s(literal -1/8 binary64)
(* (cos (* lambda2 -1/2)) (* lambda1 -1/48))
(*.f64 (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))
(* lambda1 -1/48)
(*.f64 lambda1 #s(literal -1/48 binary64))
-1/48
#s(literal -1/48 binary64)
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R

localize1.6s (3.3%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy93.0%
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓accuracy91.4%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy91.4%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy88.5%
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓accuracy88.6%
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy88.3%
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓accuracy91.7%
(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy88.6%
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓accuracy88.6%
(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓accuracy88.3%
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓accuracy99.3%
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
✓accuracy91.4%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy88.5%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
Results
793.0ms146×1valid
241.0ms52×1invalid
104.0ms57×0invalid
2.0ms1×0valid
Compiler

Compiled 2620 to 107 computations (95.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 748.0ms
ival-cos: 165.0ms (22.1% of total)
ival-mult: 153.0ms (20.5% of total)
ival-sin: 107.0ms (14.3% of total)
backward-pass: 84.0ms (11.2% of total)
ival-sqrt: 62.0ms (8.3% of total)
ival-pow: 55.0ms (7.4% of total)
ival-div: 38.0ms (5.1% of total)
ival-add: 30.0ms (4% of total)
ival-atan2: 25.0ms (3.3% of total)
ival-sub: 19.0ms (2.5% of total)
...c/correct-round.rkt:119:19: 9.0ms (1.2% of total)
const: 2.0ms (0.3% of total)

series895.0ms (1.8%)

Counts
29 → 1260
Calls
Call 1
Inputs
#<alt (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))>
#<alt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))>
#<alt (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))>
#<alt (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))>
#<alt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))>
#<alt (* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2)>
#<alt (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)>
#<alt (* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))>
#<alt (* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))))>
#<alt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))>
#<alt (cos (* (- lambda1 lambda2) 1))>
#<alt (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (- 1 (cos (* (- lambda1 lambda2) 1)))>
#<alt (cos (* 2 (/ (- phi1 phi2) 2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4)>
#<alt (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4)>
#<alt (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/24 (+ (* -3/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))>
#<alt (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))>
#<alt (* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))>
#<alt (* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))>
#<alt (* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))>
#<alt (pow (sin (* 1/2 (- lambda1 lambda2))) 2)>
#<alt (+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))>
#<alt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))) (sqrt -1/48))>
#<alt (* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))>
#<alt (* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48)))))>
#<alt (* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 7) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))) (/ (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* 1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt -1/48) 2))))) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))))>
#<alt (* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (* (sqrt -1) (sqrt 1/48)))>
#<alt (* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48)))))>
#<alt (* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow lambda1 5))) (/ (sqrt -1) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))) (/ (* (sqrt -1) (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* -1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt 1/48) 2)))))) (sqrt 1/48)))) (* -1/4 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (/ (sqrt -1) (sqrt 1/48))))) (pow lambda1 3))) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))>
#<alt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))))))>
#<alt (* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 3)) (/ (pow (sin (* 1/2 (- phi1 phi2))) 2) (pow lambda1 3)))))))>
#<alt (* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (* -1 (* (pow lambda1 3) (+ (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)))))>
#<alt (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) lambda1)) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- 1 (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (cos (neg phi2))>
#<alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos phi1)>
#<alt (+ (cos phi1) (* phi2 (sin phi1)))>
#<alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))>
#<alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
Calls

315 calls:

TimeVariablePointExpression
158.0ms
lambda1
@-inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
94.0ms
phi1
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
43.0ms
phi2
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
41.0ms
lambda1
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
40.0ms
R
@inf
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))

rewrite424.0ms (0.9%)

Algorithm
1×batch-egg-rewrite
Rules
3272×*-lowering-*.f32
3272×*-lowering-*.f64
2018×fma-lowering-fma.f32
2018×fma-lowering-fma.f64
1874×/-lowering-/.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
01061074
1586936
25916936
08064936
Stop Event
1×iter limit
1×node limit
Counts
29 → 305
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4) 2)
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)) 1/4)
(* (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* phi2 -1/2)) (+ (sin (* phi2 -1/2)) (* phi1 (cos (* phi2 -1/2))))))
(* (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (+ (sin (* lambda2 -1/2)) (* lambda1 (+ (* 1/2 (cos (* lambda2 -1/2))) (* lambda1 (+ (* -1/8 (sin (* lambda2 -1/2))) (* (cos (* lambda2 -1/2)) (* lambda1 -1/48))))))) (sin (/ (- lambda1 lambda2) 2)))))
(sin (/ (- lambda1 lambda2) -2))
(sin (/ (- lambda1 lambda2) 2))
(sin (/ (- phi1 phi2) 2))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(cos (* (- lambda1 lambda2) 1))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
Outputs
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) R))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) R) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))))
(pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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))))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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))))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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))))))) #s(literal 1/4 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (pow.f64 (*.f64 (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(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)))))))
(fma.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (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/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (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(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (-.f64 (pow.f64 (*.f64 (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(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (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(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(exp.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/4 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64))))
(*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64))) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(+.f64 (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(-.f64 (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(exp.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/4 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64))))
(*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64))) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)))
(exp.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(exp.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1 binary64)))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/8 binary64))
(pow.f64 (exp.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1/4 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(pow.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/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 (*.f64 (cos.f64 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 phi2 #s(literal -1/2 binary64))))))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(-.f64 (/.f64 (pow.f64 (*.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)) (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(fma.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/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 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (*.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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/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 (pow.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (*.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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (*.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))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/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 (pow.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.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)) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/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 (pow.f64 (*.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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #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 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(literal 1/4 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64))))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 4 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))) #s(literal -1/8 binary64)) (*.f64 (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64))))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.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) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.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) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64)) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (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)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (cos.f64 phi1) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(fma.f64 (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))))
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (fma.f64 (neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))

simplify1.0s (2.1%)

Algorithm
1×egg-herbie
Rules
5728×*-lowering-*.f32
5728×*-lowering-*.f64
3770×+-lowering-+.f64
3770×+-lowering-+.f32
1878×sum3-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0200866258
1591164705
0804664705
Stop Event
1×iter limit
1×node limit
Counts
1260 → 1260
Calls
Call 1
Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4)
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4)
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/24 (+ (* -3/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))) (sqrt -1/48))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48)))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 7) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))) (/ (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* 1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt -1/48) 2))))) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))))
(* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (* (sqrt -1) (sqrt 1/48)))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48)))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow lambda1 5))) (/ (sqrt -1) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))) (/ (* (sqrt -1) (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* -1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt 1/48) 2)))))) (sqrt 1/48)))) (* -1/4 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (/ (sqrt -1) (sqrt 1/48))))) (pow lambda1 3))) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 3)) (/ (pow (sin (* 1/2 (- phi1 phi2))) 2) (pow lambda1 3)))))))
(* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))
(* -1 (* (pow lambda1 3) (+ (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)))))
(* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))
(* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) lambda1)) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- 1 (cos (neg lambda2)))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (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)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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)))))) (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 (*.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))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (*.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)))) (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 #s(literal 1/2 binary64) (+.f64 (*.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 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.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) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 (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)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.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)))) (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 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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))))))) (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))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.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)))) (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 #s(literal 1/2 binary64) (+.f64 (*.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 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (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)))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (+.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 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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 phi1))) #s(literal 2 binary64)))
(+ (* (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)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.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 (*.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (+.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 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (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)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (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 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (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) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.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)))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 phi1 (*.f64 (+.f64 (*.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 phi2 (*.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.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)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (-.f64 (*.f64 #s(literal -1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (+.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) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.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 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64))
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) phi1) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))))))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 phi1 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (+.f64 (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal 1/3072 binary64) (neg.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -3 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64))
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 phi2 (sin.f64 phi1)))))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (sin.f64 phi1))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) phi2) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (sin.f64 phi1))) (*.f64 phi2 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (+.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 #s(literal -1/64 binary64) (*.f64 (sin.f64 phi1) (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (/.f64 (*.f64 #s(literal -1/3072 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/24 binary64) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))
(+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (* lambda1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/24 (+ (* -3/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))) (* 1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin (neg lambda2)) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (*.f64 lambda1 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (+.f64 (*.f64 lambda1 (+.f64 (/.f64 (*.f64 #s(literal 1/3072 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (neg.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (neg.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 lambda2 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) lambda2) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (+.f64 (*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal -1/64 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (+.f64 (/.f64 (*.f64 #s(literal -1/3072 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (*.f64 #s(literal 3/4 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (+.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 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi2 (+ (* -1/4 (/ phi1 (sin (* 1/2 (- lambda1 lambda2))))) (* phi2 (+ (* 1/2 (/ (* phi2 (- (+ (* 1/48 phi1) (* 1/16 phi1)) (* -1/4 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi1 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 phi2 (+.f64 (*.f64 phi1 #s(literal 1/12 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 phi1 (+.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 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (+.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 (*.f64 #s(literal 1/16 binary64) (*.f64 phi1 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* 1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi2) (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) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.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) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (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) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda1 (- (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (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) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))) (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))) (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.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) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* -1/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.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) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))) (* lambda2 (+ (* -1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))) (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.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 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)))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.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) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))))))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 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))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (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)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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 (*.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)))) (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 (*.f64 #s(literal -1/8 binary64) (*.f64 phi1 (*.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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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 3 binary64))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))))) (* 1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 5))))))))))
(+.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 (*.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)))) (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 (*.f64 #s(literal -1/8 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) phi2)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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 3 binary64))))) (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 phi1 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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 5 binary64))))))))))
(sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(sqrt.f64 (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(*.f64 phi1 (+.f64 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(*.f64 phi1 (+.f64 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))))) (pow.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))))))
(* phi1 (+ (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3))) (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(*.f64 phi1 (+.f64 (+.f64 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))))) (pow.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)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64))))) (pow.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 3 binary64)))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sqrt -1) 2)))
(-.f64 #s(literal 0 binary64) (*.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal -1 binary64)))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) #s(literal -1 binary64))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) #s(literal -1 binary64))) (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))))) (/.f64 (pow.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)) #s(literal -1 binary64)))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 2) (pow (sqrt -1) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) 3) (pow (sqrt -1) 4)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (pow (sqrt -1) 2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))))) (/.f64 (pow.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)) #s(literal -1 binary64))) (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 5 binary64))))) (pow.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 3 binary64))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 4 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 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 (sqrt.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1))) #s(literal -1 binary64)))))
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.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) phi1) phi2))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 phi2 (+.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))))))))
(+ (* phi2 (+ (* -1/2 phi1) (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* phi2 (+ (* 1/48 phi1) (* 1/16 phi1)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 phi2 (+.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 phi2 (*.f64 phi1 #s(literal 1/12 binary64)))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (*.f64 (*.f64 lambda1 (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))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (*.f64 lambda1 (+.f64 (*.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 lambda1 (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* -1 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(-.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 (*.f64 lambda2 (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 lambda2 (-.f64 (*.f64 (*.f64 lambda2 (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 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2)))))))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.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 lambda2 (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (* (sin (* -1/2 phi2)) (+ (sin (* -1/2 phi2)) (* phi1 (cos (* -1/2 phi2))))))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 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)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.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 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (/.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) phi1))))
(* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))
(*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (/.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))) phi1)))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (/.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))) phi1)))
(* -1 (* phi1 (+ (* -1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1 (/ (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi1) (-.f64 (*.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (/.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))) phi1)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (+ (* -1/8 (* (pow lambda1 2) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (pow lambda1 3) (cos (* -1/2 lambda2)))) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 lambda1 lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (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 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (-.f64 (+.f64 (+.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/2 binary64) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))))) (*.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 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (*.f64 phi1 (+.f64 (*.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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (-.f64 (+.f64 (+.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/2 binary64) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (-.f64 (+.f64 (+.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/2 binary64) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi2)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi2 (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (*.f64 phi2 (+.f64 (*.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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (+.f64 (+.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/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (*.f64 phi2 (+.f64 (*.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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (-.f64 (+.f64 (+.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/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (+.f64 (+.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/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (/.f64 (*.f64 #s(literal 1/4 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) phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))))))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))))))))))))
(+ (sqrt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) 2))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))))))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64)))) (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal 1/48 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/384 binary64) (*.f64 lambda1 lambda1))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))))))
(* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))) (sqrt -1/48))
(*.f64 (sqrt.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 #s(literal -1/48 binary64)))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1/48 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) lambda1)) (sqrt.f64 #s(literal -1/48 binary64)))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48)))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1/48 binary64))))) (+.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) lambda1)) (sqrt.f64 #s(literal -1/48 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 lambda1 #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal -1/48 binary64))))))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (sin (* -1/2 lambda2)) (sqrt -1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 5))) (/ 1 (sqrt -1/48)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 7) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))) (/ (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* 1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt -1/48) 2))))) (sqrt -1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (sqrt -1/48))))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1/48 binary64))))) (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 lambda1 #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal -1/48 binary64))))) (+.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) lambda1)) (sqrt.f64 #s(literal -1/48 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 7 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (/.f64 (+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal -1/48 binary64))))) (sqrt.f64 #s(literal -1/48 binary64))))))))
(* (sqrt (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (* (sqrt -1) (sqrt 1/48)))
(*.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48)))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/48 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64))))))
(* (pow lambda1 2) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (+ (* 1/4 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow lambda1 5))) (/ (sqrt -1) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))
(*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/48 binary64))))) (+.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 lambda1 #s(literal 5 binary64)))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64))))))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))) (/ (* (sqrt -1) (- (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (* -1/256 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (* (pow (sin (* -1/2 lambda2)) 2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* (cos (* -1/2 lambda2)) (pow (sqrt 1/48) 2)))))) (sqrt 1/48)))) (* -1/4 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) (/ (sqrt -1) (sqrt 1/48))))) (pow lambda1 3))) (+ (* -1/16 (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))) (* (pow lambda1 3) (cos (* -1/2 lambda2))))) (/ (* (sin (* -1/2 lambda2)) (sqrt -1)) (sqrt 1/48)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)) (* (sqrt -1) (sqrt 1/48))))))
(*.f64 (*.f64 lambda1 lambda1) (-.f64 (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/48 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64))))) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) (*.f64 #s(literal 1/256 binary64) (/.f64 (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/48 binary64)))))) (sqrt.f64 #s(literal 1/48 binary64)))) (*.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/48 binary64)))))) (*.f64 lambda1 (*.f64 lambda1 lambda1)))))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (+.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/2 binary64) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 phi1 (+.f64 (+.f64 (+.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 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (+.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/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (+.f64 (+.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 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64))))))))))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2))))))) (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16)))) (+ (* -1/8 (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* 1/48 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (+ 1/48 (* -1/384 (pow lambda1 2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))) (+ (* -1/8 (* lambda1 (* (sin (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* lambda1 (* (sin (* 1/2 lambda1)) (- (* 1/384 (pow lambda1 2)) 1/16))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* lambda1 (* (cos (* 1/2 lambda1)) (+ 1/2 (* -1/48 (pow lambda1 2)))))) (* (sin (* 1/2 lambda1)) (- (* 1/16 (pow lambda1 2)) 1/2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 lambda1 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64))))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/16 binary64)))) (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal 1/48 binary64) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/384 binary64) (*.f64 lambda1 lambda1))))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (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)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (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 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)))))))))
(* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))))
(*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))))))
(*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) lambda1) (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))))))
(*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) lambda1) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) lambda1) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) lambda1))))))
(* (pow lambda1 3) (+ (* -1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) lambda1)) (+ (* -1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 2))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 (- lambda1 lambda2)))))) (pow lambda1 3)) (/ (pow (sin (* 1/2 (- phi1 phi2))) 2) (pow lambda1 3)))))))
(*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) lambda1) (*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (+.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) lambda1) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) lambda1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))))))
(* -1/48 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))
(*.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))))
(* -1 (* (pow lambda1 3) (+ (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1)))))
(*.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 (*.f64 (*.f64 #s(literal 1/48 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) lambda1)))
(* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) lambda1))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))
(*.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (-.f64 (*.f64 (*.f64 #s(literal 1/48 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) lambda1)) lambda1)))
(* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) lambda1)) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* -1/8 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1))))))))) lambda1)) (* 1/48 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))))))))
(*.f64 (*.f64 #s(literal -1 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (-.f64 (*.f64 (*.f64 #s(literal 1/48 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))) (/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))))) lambda1)) lambda1)) lambda1)))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 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))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 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))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 phi1 (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)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi2 (+.f64 (*.f64 phi2 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1/12 binary64))))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (*.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.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)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.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)))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(- (cos (neg lambda2)) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (*.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- 1 (cos (neg lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (sin.f64 lambda1)))) (cos.f64 lambda1))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+.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)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(+.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)))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 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))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))

eval965.0ms (2%)

Compiler

Compiled 192556 to 6279 computations (96.7% saved)

prune532.0ms (1.1%)

Pruning

103 alts after pruning (103 fresh and 0 done)

PrunedKeptTotal
New2230852315
Fresh461864
Picked505
Done000
Total22811032384
Accuracy
74.7%
Counts
2384 → 103
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶57.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.8%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.7%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
52.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
31.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
28.4%
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
55.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶72.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
72.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
72.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
19.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
59.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
23.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
▶35.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
32.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
34.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
58.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
39.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.1%
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.7%
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
30.5%
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
29.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
37.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶36.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
6.8%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
7.7%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶15.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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))))))))
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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #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))))))))))
Compiler

Compiled 15796 to 8586 computations (45.6% saved)

simplify236.0ms (0.5%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff256
(pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64))
✓cost-diff6784
(pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
✓cost-diff6784
(atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff6784
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff13312
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
✓cost-diff13312
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
✓cost-diff13696
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
✓cost-diff13696
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff6528
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
✓cost-diff6528
(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
✓cost-diff6912
(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
✓cost-diff6912
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff0
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
✓cost-diff0
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓cost-diff0
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))))
✓cost-diff0
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff6400
(+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓cost-diff6400
(sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓cost-diff6400
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
✓cost-diff6400
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Rules
3362×+-lowering-+.f64
3362×+-lowering-+.f32
3178×*-lowering-*.f32
3178×*-lowering-*.f64
1386×sum4-define
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
01112303
12832263
28212166
327292091
084792091
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)
(+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2)))))
(sin (/ phi1 2))
(/ phi1 2)
phi1
2
(cos (/ phi2 2))
(/ phi2 2)
phi2
(- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))
0
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(cos (/ phi1 2))
(sin (/ phi2 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(* R 2)
R
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
1/2
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (cos phi1) (cos phi2))
(cos phi1)
phi1
(cos phi2)
phi2
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
2
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
(* R 2)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
1/2
(* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))
(+ (cos phi1) (* phi2 (sin phi1)))
(cos phi1)
phi1
(* phi2 (sin phi1))
phi2
(sin phi1)
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(* (cos phi1) (cos phi2))
(cos phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
1
(cos (* (- lambda1 lambda2) 1))
(* (- lambda1 lambda2) 1)
(- lambda1 lambda2)
lambda1
lambda2
2
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
-1
(* R 2)
R
(* (atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))
(+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
1/2
(- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))
(* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2)))))
lambda1
(* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))
(cos phi1)
phi1
(* (cos phi2) (- 0 (sin lambda2)))
(cos phi2)
phi2
(- 0 (sin lambda2))
0
(sin lambda2)
lambda2
(* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))
(* (cos phi2) (- 1 (cos lambda2)))
(- 1 (cos lambda2))
1
(cos lambda2)
(* 1/2 (cos (- phi1 phi2)))
(cos (- phi1 phi2))
(- phi1 phi2)
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
2
(/ (- phi1 phi2) 2)
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(cos (* (- lambda1 lambda2) 1))
(* (- lambda1 lambda2) 1)
(- lambda1 lambda2)
-1
(* (cos phi1) (cos phi2))
(* R 2)
R
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2)
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
1/2
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
2
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)
(* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
1
(+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))
(* (cos lambda1) (cos lambda2))
(cos lambda1)
lambda1
(cos lambda2)
lambda2
(* (sin lambda1) (sin lambda2))
(sin lambda1)
(sin lambda2)
1/4
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (sin (/ (- phi1 phi2) 2)) 2)
(sin (/ (- phi1 phi2) 2))
(* R 2)
R
Outputs
(* (atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R))
(atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
(+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2)))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
phi1
2
#s(literal 2 binary64)
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
phi2
(- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
0
#s(literal 0 binary64)
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(* 1/2 (- lambda1 lambda2))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
1/2
#s(literal 1/2 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
phi1
(cos phi2)
(cos.f64 phi2)
phi2
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
2
#s(literal 2 binary64)
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))))))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))))
(sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))))
(+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
(+ (cos phi1) (* phi2 (sin phi1)))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))
(cos phi1)
(cos.f64 phi1)
phi1
(* phi2 (sin phi1))
(*.f64 phi2 (sin.f64 phi1))
phi2
(sin phi1)
(sin.f64 phi1)
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi2)
(cos.f64 phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
1
#s(literal 1 binary64)
(cos (* (- lambda1 lambda2) 1))
(cos.f64 (-.f64 lambda1 lambda2))
(* (- lambda1 lambda2) 1)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
2
#s(literal 2 binary64)
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
-1
#s(literal -1 binary64)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))))
(atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))))
(sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1)))))))
(+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1))))))
1/2
#s(literal 1/2 binary64)
(- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1))) (cos.f64 (-.f64 phi1 phi2))))
(* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) lambda1)))
(* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2)))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (neg.f64 (*.f64 lambda1 (sin.f64 lambda2)))))
lambda1
(* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))
(cos phi1)
(cos.f64 phi1)
phi1
(* (cos phi2) (- 0 (sin lambda2)))
(*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))
(cos phi2)
(cos.f64 phi2)
phi2
(- 0 (sin lambda2))
(-.f64 #s(literal 0 binary64) (sin.f64 lambda2))
0
#s(literal 0 binary64)
(sin lambda2)
(sin.f64 lambda2)
lambda2
(* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))
(* (cos phi2) (- 1 (cos lambda2)))
(*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
1
#s(literal 1 binary64)
(cos lambda2)
(cos.f64 lambda2)
(* 1/2 (cos (- phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(- phi1 phi2)
(-.f64 phi1 phi2)
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
2
#s(literal 2 binary64)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(cos (* (- lambda1 lambda2) 1))
(cos.f64 (-.f64 lambda1 lambda2))
(* (- lambda1 lambda2) 1)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
-1
#s(literal -1 binary64)
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2)
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))))
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2))
(+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
2
#s(literal 2 binary64)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) #s(literal 2 binary64))
(* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
1
#s(literal 1 binary64)
(+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(* (cos lambda1) (cos lambda2))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(cos lambda1)
(cos.f64 lambda1)
lambda1
(cos lambda2)
(cos.f64 lambda2)
lambda2
(* (sin lambda1) (sin lambda2))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(sin lambda1)
(sin.f64 lambda1)
(sin lambda2)
(sin.f64 lambda2)
1/4
#s(literal 1/4 binary64)
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
(-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (sin (/ (- phi1 phi2) 2)) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (/ (- phi1 phi2) 2))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R

localize1.6s (3.2%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy90.3%
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
✓accuracy89.5%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy91.2%
(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy90.3%
(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓accuracy88.3%
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
✓accuracy86.7%
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓accuracy90.3%
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓accuracy90.3%
(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓accuracy86.7%
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓accuracy86.6%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
✓accuracy91.2%
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy86.9%
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓accuracy99.6%
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
✓accuracy99.4%
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy86.9%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
Results
756.0ms140×1valid
183.0ms100×0invalid
94.0ms15×1invalid
8.0ms1×2valid
Compiler

Compiled 2443 to 112 computations (95.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 690.0ms
ival-mult: 173.0ms (25.1% of total)
ival-sin: 140.0ms (20.3% of total)
ival-cos: 129.0ms (18.7% of total)
backward-pass: 44.0ms (6.4% of total)
ival-div: 44.0ms (6.4% of total)
ival-pow: 39.0ms (5.7% of total)
ival-sqrt: 30.0ms (4.3% of total)
ival-sub: 29.0ms (4.2% of total)
ival-add: 27.0ms (3.9% of total)
ival-atan2: 26.0ms (3.8% of total)
compiled-spec: 8.0ms (1.2% of total)
const: 2.0ms (0.3% of total)

series903.0ms (1.8%)

Counts
33 → 1296
Calls
Call 1
Inputs
#<alt (* (atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))>
#<alt (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))>
#<alt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (* 1/2 (- lambda1 lambda2))>
#<alt (* (atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))>
#<alt (atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))>
#<alt (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))>
#<alt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))>
#<alt (* (atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))>
#<alt (atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))>
#<alt (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))>
#<alt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2)>
#<alt (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))>
#<alt (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (cos (* (- lambda1 lambda2) 1))>
#<alt (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (- 1 (cos (* (- lambda1 lambda2) 1)))>
#<alt (- 1 (cos lambda2))>
#<alt (cos (* 2 (/ (- phi1 phi2) 2)))>
#<alt (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (* -1/2 lambda2)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* 1/2 lambda1)>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* 1/2 lambda1)>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* 1/2 lambda1)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* -1/2 lambda2)>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* -1/2 lambda2)>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2))>
#<alt (+ (* -1/4 (* (/ (* phi1 phi2) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))>
#<alt (+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* phi1 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))>
#<alt (+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/2 (* (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))) (* -1/12 phi2))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (/ (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/8 (* (* phi2 (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (* (sqrt (* phi2 (sin phi1))) (sqrt -1/2))>
#<alt (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))>
#<alt (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2)))))>
#<alt (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))))>
#<alt (* -1 (* (sqrt (* phi2 (sin phi1))) (* (sqrt -1) (sqrt 1/2))))>
#<alt (* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))>
#<alt (* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2)))))))>
#<alt (* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))>
#<alt (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))>
#<alt (+ (* -1/2 (* phi1 phi2)) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))>
#<alt (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 phi2))))>
#<alt (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi1 phi2))))) (* 1/2 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/48 (* (pow phi2 2) (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (* -1/2 (* phi2 (sin phi1)))>
#<alt (* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* -1/2 (* phi2 (sin phi1)))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* -1/32 (* (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* -1/32 (* (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* -1/128 (* (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 5))))))))))>
#<alt (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (sqrt -1/2))>
#<alt (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))>
#<alt (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2)))))>
#<alt (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))))>
#<alt (* -1 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (sqrt -1) (sqrt 1/2))))>
#<alt (* -1 (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))>
#<alt (* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))>
#<alt (* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))>
#<alt (* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))>
#<alt (* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))>
#<alt (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2))))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (+ (* 1/12 (* phi2 (sin phi1))) (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2))))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/4 (* lambda2 (* (cos phi1) (cos phi2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4)>
#<alt (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4)>
#<alt (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (pow (sin (* 1/2 phi2)) 2)>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (* -1/2 (* phi1 phi2))>
#<alt (* phi1 (- (* 1/4 phi1) (* 1/2 phi2)))>
#<alt (* phi1 (- (* phi1 (+ 1/4 (* 1/12 (* phi1 phi2)))) (* 1/2 phi2)))>
#<alt (* phi1 (- (* phi1 (+ 1/4 (* phi1 (- (* -1/48 phi1) (* -1/12 phi2))))) (* 1/2 phi2)))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))>
#<alt (- 1/2 (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))>
#<alt (* -1/2 (* phi2 (sin phi1)))>
#<alt (* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))>
#<alt (* -1/2 (* phi2 (sin phi1)))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- 1 (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (* 1/2 (pow lambda2 2))>
#<alt (* (pow lambda2 2) (+ 1/2 (* -1/24 (pow lambda2 2))))>
#<alt (* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* 1/720 (pow lambda2 2)) 1/24))))>
#<alt (* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/720 (* -1/40320 (pow lambda2 2)))) 1/24))))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (- 1 (cos lambda2))>
#<alt (cos (neg phi2))>
#<alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos phi1)>
#<alt (+ (cos phi1) (* phi2 (sin phi1)))>
#<alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))>
#<alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (- 1/2 (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- 1/2 (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (- phi1 phi2))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- 1 (cos lambda2))>
#<alt (- (+ 1 (* -1 (* lambda1 (sin lambda2)))) (cos lambda2))>
#<alt (- (+ 1 (* lambda1 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))>
#<alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (sin lambda2))) (* -1/2 (cos lambda2)))) (sin lambda2)))) (cos lambda2))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (- (* 1/2 (* lambda2 (cos lambda1))) (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1)))) (sin lambda1)))) (cos lambda1))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
#<alt (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))>
Calls

324 calls:

TimeVariablePointExpression
268.0ms
phi2
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
67.0ms
lambda2
@0
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
50.0ms
lambda1
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
45.0ms
phi1
@-inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
43.0ms
lambda2
@inf
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)

rewrite562.0ms (1.1%)

Algorithm
1×batch-egg-rewrite
Rules
3744×*-lowering-*.f32
3744×*-lowering-*.f64
2414×/-lowering-/.f32
2414×/-lowering-/.f64
1920×+-lowering-+.f64
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
01111022
1704800
27621800
08118800
Stop Event
1×iter limit
1×node limit
Counts
33 → 455
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (+ (* (sin (/ phi1 2)) (cos (/ phi2 2))) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(* (atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))
(+ 1/2 (- (* 1/2 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (- 0 (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(* (atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(pow (pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4) 2)
(pow (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) 2)) 1/4)
(sin (/ (- lambda1 lambda2) -2))
(sin (/ (- lambda1 lambda2) 2))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(sin (/ (- phi1 phi2) 2))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(cos (* (- lambda1 lambda2) 1))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(- 1 (cos lambda2))
(cos (* 2 (/ (- phi1 phi2) 2)))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
Outputs
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) R))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) R) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))))
(pow.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (pow.f64 (*.f64 (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(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)))))))
(fma.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (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/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (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(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (neg.f64 (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 (-.f64 (pow.f64 (*.f64 (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(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (pow.f64 (*.f64 (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(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (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 (*.f64 (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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (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(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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 2 binary64) (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (neg.f64 (/.f64 lambda2 #s(literal 2 binary64))))
(+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) lambda2)))
(-.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 #s(literal 2 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (/.f64 lambda1 #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 lambda2 #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda1 #s(literal 2 binary64))) (+.f64 (*.f64 (/.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))) (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda1 #s(literal 2 binary64))) (*.f64 (/.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64)))) (+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) #s(literal 1/2 binary64)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda1 lambda2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(+.f64 (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))
(-.f64 (+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64))) (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (*.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))))) (*.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))) (*.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))))) (*.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64)))) (neg.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(*.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 3 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) #s(literal 8 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))
(*.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))) (+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) lambda1)) (cos.f64 (-.f64 phi1 phi2))))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(exp.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1 binary64))
(pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/4 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64))))
(*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64))) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)))
(exp.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(exp.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1 binary64)))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1 binary64))
(pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/8 binary64))
(pow.f64 (exp.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) #s(literal 1/4 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (cos.f64 (+.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (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 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(*.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 #s(literal 0 binary64) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (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 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (*.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1 binary64)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (neg.f64 (cos.f64 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (-.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))))
(*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda1 lambda2))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (neg.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sin.f64 lambda1)))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (+.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)))
(+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (/.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda2)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda2))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))
(/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda2)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda2))))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)) (-.f64 #s(literal 0 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 lambda2))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)) (-.f64 #s(literal 0 binary64) (cos.f64 lambda2)))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 lambda2))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))
(+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (fma.f64 (neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (cos.f64 (+.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (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 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))))
(*.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))
(+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (neg.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (sin.f64 lambda1)))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (+.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))

simplify1.4s (2.9%)

Algorithm
1×egg-herbie
Rules
5416×*-lowering-*.f32
5416×*-lowering-*.f64
3798×+-lowering-+.f64
3798×+-lowering-+.f32
1858×sum3-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0203659480
1597857600
0805757600
Stop Event
1×iter limit
1×node limit
Counts
1296 → 1296
Calls
Call 1
Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2))
(+ (* -1/4 (* (/ (* phi1 phi2) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* phi1 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/2 (* (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))) (* -1/12 phi2))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (/ (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/8 (* (* phi2 (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(* (sqrt (* phi2 (sin phi1))) (sqrt -1/2))
(* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2)))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))))
(* -1 (* (sqrt (* phi2 (sin phi1))) (* (sqrt -1) (sqrt 1/2))))
(* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2)))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))
(+ (* -1/2 (* phi1 phi2)) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))
(+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 phi2))))
(+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi1 phi2))))) (* 1/2 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/48 (* (pow phi2 2) (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(* -1/2 (* phi2 (sin phi1)))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* -1/2 (* phi2 (sin phi1)))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* -1/32 (* (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* -1/32 (* (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* -1/128 (* (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 5))))))))))
(* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (sqrt -1/2))
(* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))
(* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2)))))
(* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))))
(* -1 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (sqrt -1) (sqrt 1/2))))
(* -1 (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))
(* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2)))))))
(* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2))))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (+ (* 1/12 (* phi2 (sin phi1))) (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2))))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/4 (* lambda2 (* (cos phi1) (cos phi2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4)
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4)
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(pow (sin (* 1/2 phi2)) 2)
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(* -1/2 (* phi1 phi2))
(* phi1 (- (* 1/4 phi1) (* 1/2 phi2)))
(* phi1 (- (* phi1 (+ 1/4 (* 1/12 (* phi1 phi2)))) (* 1/2 phi2)))
(* phi1 (- (* phi1 (+ 1/4 (* phi1 (- (* -1/48 phi1) (* -1/12 phi2))))) (* 1/2 phi2)))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(- 1/2 (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(* -1/2 (* phi2 (sin phi1)))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(* -1/2 (* phi2 (sin phi1)))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- 1 (cos (neg lambda2)))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (pow lambda2 2))
(* (pow lambda2 2) (+ 1/2 (* -1/24 (pow lambda2 2))))
(* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* 1/720 (pow lambda2 2)) 1/24))))
(* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/720 (* -1/40320 (pow lambda2 2)))) 1/24))))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(- 1 (cos lambda2))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(- 1/2 (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1 (cos lambda2))
(- (+ 1 (* -1 (* lambda1 (sin lambda2)))) (cos lambda2))
(- (+ 1 (* lambda1 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (sin lambda2))) (* -1/2 (cos lambda2)))) (sin lambda2)))) (cos lambda2))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (- (* 1/2 (* lambda2 (cos lambda1))) (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1)))) (sin lambda1)))) (cos lambda1))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 (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)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 (*.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)))) (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 phi1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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)))))) (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)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 (*.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)))) (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 #s(literal 1/2 binary64) (+.f64 (*.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 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.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) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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/4 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) phi2)) #s(literal 2 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 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.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))))) (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)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.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)))) (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 phi2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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)))))) (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)))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (*.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)))) (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 #s(literal 1/2 binary64) (+.f64 (*.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 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.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 #s(literal 1/4 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) 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 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.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 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.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 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (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))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.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 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (+.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 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (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)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (+.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 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (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)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (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 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 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))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(* -1/2 lambda2)
(*.f64 #s(literal -1/2 binary64) lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))
(* -1/2 lambda2)
(*.f64 #s(literal -1/2 binary64) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* -1/2 lambda2)
(*.f64 #s(literal -1/2 binary64) lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda2)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda2)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda1) lambda2)))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2))
(*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/4 (* (/ (* phi1 phi2) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(+.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (/.f64 phi2 (sqrt.f64 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (/ (* phi1 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(+.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 phi2 (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi2 phi2)) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 #s(literal 1/2 binary64)))))))
(+ (* phi1 (+ (* -1/4 (* (/ phi2 (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/2 (* (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))) (* -1/12 phi2))) (sqrt 1/2)) (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (* (sqrt (/ 1 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (/ (- (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/16 (/ (pow phi2 2) (* (cos phi2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)))))))) (* (sqrt (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)))
(+.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 phi2 (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi2 phi2)) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/12 binary64) phi2))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 phi2 phi2)) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (sqrt.f64 #s(literal 1/2 binary64)))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/8 (* (* phi2 (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))) 3))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 phi2 (sin.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(* (sqrt (* phi2 (sin phi1))) (sqrt -1/2))
(*.f64 (sqrt.f64 (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 #s(literal -1/2 binary64)))
(* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))
(*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2)))))
(*.f64 phi2 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 5 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal -1/2 binary64)))))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) (sqrt -1/2)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/2))))))
(*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 5 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal -1/2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 phi2 #s(literal 7 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))))
(* -1 (* (sqrt (* phi2 (sin phi1))) (* (sqrt -1) (sqrt 1/2))))
(*.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
(* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2)))))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 5 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (pow (sin phi1) 3)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (pow (sin phi1) 5)))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))) (sqrt 1/2)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/2))))))))
(-.f64 #s(literal 0 binary64) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 5 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi2 (*.f64 phi2 phi2)) (sin.f64 phi1))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 phi2 #s(literal 7 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 5 binary64)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 5 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))))
(* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ (* -1/2 (* phi1 phi2)) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))
(+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 phi2))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi1 phi2))))) (* 1/2 phi2))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2))))) (*.f64 #s(literal -1/2 binary64) phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* -1/4 (* phi2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 phi2 (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/48 (* (pow phi2 2) (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 (*.f64 phi2 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(* -1/2 (* phi2 (sin phi1)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))
(* phi2 (- (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) phi2)) (* 1/2 (/ 1 phi2))) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))
(* -1/2 (* phi2 (sin phi1)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(* -1 (* phi2 (- (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) phi2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))) (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))) (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))) (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* -1/32 (* (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 lambda1 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* -1/32 (* (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* -1/128 (* (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 5))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))))) (*.f64 (*.f64 #s(literal -1/128 binary64) (*.f64 lambda1 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 5 binary64))))))))))
(* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (sqrt -1/2))
(*.f64 (sqrt.f64 (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 #s(literal -1/2 binary64)))
(* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 #s(literal -1/2 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2)))))
(*.f64 lambda1 (+.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 #s(literal -1/2 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 5 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal -1/2 binary64)))))))
(* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2) (pow (sqrt -1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3) (pow (sqrt -1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) (sqrt -1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (sqrt -1/2))))))
(*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 5 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal -1/2 binary64))))) (+.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 #s(literal -1/2 binary64))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (sqrt.f64 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 lambda1 #s(literal 7 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 5 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 5 binary64))))))) (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))))
(* -1 (* (sqrt (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (sqrt -1) (sqrt 1/2))))
(-.f64 #s(literal 0 binary64) (*.f64 (sqrt.f64 (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(* -1 (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
(* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 5 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))))
(* -1 (* lambda1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow lambda1 5) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)) (pow (sqrt 1/2) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow lambda1 7) (* (pow (cos phi1) 5) (* (pow (cos phi2) 5) (pow (sin lambda2) 5)))))) (/ (* (sqrt -1) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) (pow (sqrt 1/2) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow lambda1 3) (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (/ (* (sqrt -1) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt 1/2)))) (* (sqrt (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* (sqrt -1) (sqrt 1/2))))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 5 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)) lambda1)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 lambda1 #s(literal 7 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 5 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 5 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 5 binary64))))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 5 binary64)))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (*.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 phi1) (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(+ (sqrt (- 1/2 (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/4 (* (cos phi1) (cos phi2))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))) (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 lambda1 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (-.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) lambda1) (/.f64 #s(literal 1/2 binary64) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) lambda1))))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (-.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) lambda1) (/.f64 #s(literal 1/2 binary64) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) lambda1))))
(* lambda1 (- (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) lambda1)) (* 1/2 (/ 1 lambda1)))) (* 1/2 (/ (cos (- phi1 phi2)) lambda1))))
(*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (-.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) lambda1) (/.f64 #s(literal 1/2 binary64) lambda1)) (/.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) lambda1))))
(* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) lambda1)) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos phi2) (- 1 (cos lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (+ (* -1/2 (* (cos phi2) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2))))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.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)))
(- (+ 1/2 (+ (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (sin lambda2)))) (* (cos phi1) (- 1 (cos lambda2))))) (* phi2 (- (* phi2 (- (+ (* 1/12 (* phi2 (sin phi1))) (* 1/2 (+ (* -1/2 (* (cos phi1) (- 1 (cos lambda2)))) (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2))))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal 1/12 binary64) (*.f64 phi2 (sin.f64 phi1))) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))))) (*.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)))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/4 (* lambda2 (* (cos phi1) (cos phi2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 #s(literal 1/12 binary64) (*.f64 (*.f64 lambda1 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi2 (*.f64 (+.f64 (*.f64 #s(literal 1/12 binary64) (sin.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 phi1) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64))
(+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (* phi1 (sin (neg phi2))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) phi1) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))))))
(+ (* phi1 (+ (* 1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)) 1/4) (sin (neg phi2)))) (* phi1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (* phi1 (+ (* 1/3072 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3))) (+ (* 1/64 (/ (* (sin (neg phi2)) (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/24 (+ (* -3 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2))))) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (+ (* -1/2 (/ (sin (neg phi2)) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))) (* 1/4 (/ (pow (sin (neg phi2)) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 3)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4) (+ (* 1/128 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin (neg phi2)) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos (neg phi2)))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos (neg phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 phi1 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) (+.f64 (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal 1/3072 binary64) (neg.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -3 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 3 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64))
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (* phi2 (sin phi1)))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 phi2 (sin.f64 phi1)))))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (sin.f64 phi1))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) phi2) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
(+ (* phi2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3)) 1/4) (sin phi1))) (* phi2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (* phi2 (+ (* -1/64 (/ (* (sin phi1) (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (+ (* -1/3072 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (* 1/24 (+ (* -1/4 (/ (pow (sin phi1) 3) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 3))) (+ (* 1/2 (/ (sin phi1) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))) (* 3 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4) (+ (* 1/128 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 1/8 (+ (* -1/4 (/ (pow (sin phi1) 2) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))) 2))) (* 2 (/ (- (* -1/4 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/4 (cos phi1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* 1/2 (cos phi1)))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (sin.f64 phi1))) (*.f64 phi2 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) (+.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/64 binary64) (*.f64 (sin.f64 phi1) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (+.f64 (/.f64 (*.f64 #s(literal -1/3072 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) (*.f64 #s(literal 1/24 binary64) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))))))
(+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (* lambda1 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* lambda1 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda1 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda2) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda2) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda2)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda2) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda2) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (*.f64 lambda1 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (+.f64 (*.f64 lambda1 (+.f64 (/.f64 (*.f64 #s(literal -1/64 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda2)) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (+.f64 (/.f64 (*.f64 #s(literal -1/3072 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (*.f64 #s(literal 3/4 binary64) (*.f64 (cos.f64 lambda2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda2))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(+ (* lambda2 (+ (* -1/8 (* (pow (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3)) 1/4) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* lambda2 (+ (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (* lambda2 (+ (* -1/64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (+ (* -1/3072 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (* 1/24 (+ (* -1/4 (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (sin lambda1) 3))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 3))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda1))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))) (* 3/4 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2)))))))))) (* (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4) (+ (* 1/128 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/8 (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))) 2))) (* 1/2 (/ (* (cos lambda1) (* (cos phi1) (cos phi2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))) (pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) 1/4))
(+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 lambda2 (*.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (+.f64 (*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal -1/64 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (+.f64 (/.f64 (*.f64 #s(literal -1/3072 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (*.f64 #s(literal 3/4 binary64) (*.f64 (*.f64 (cos.f64 lambda1) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(pow (* 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) 1/4)
(pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 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))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 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))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 #s(literal -1/48 binary64) (*.f64 (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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1/12 binary64)))))))))) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1))) #s(literal 1/12 binary64)))))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
(pow (sin (* 1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.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))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (+.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 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.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))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (+.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 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.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 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(* -1/2 (* phi1 phi2))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2))
(* phi1 (- (* 1/4 phi1) (* 1/2 phi2)))
(*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2)))
(* phi1 (- (* phi1 (+ 1/4 (* 1/12 (* phi1 phi2)))) (* 1/2 phi2)))
(*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2)))
(* phi1 (- (* phi1 (+ 1/4 (* phi1 (- (* -1/48 phi1) (* -1/12 phi2))))) (* 1/2 phi2)))
(*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/48 binary64) phi1) (*.f64 #s(literal 1/12 binary64) phi2))))) (*.f64 #s(literal -1/2 binary64) phi2)))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (+ (cos phi1) (* phi2 (sin phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))))
(- 1/2 (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(* -1/2 (* phi2 (sin phi1)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2)))))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2)))))
(* phi2 (- (* 1/2 (/ 1 phi2)) (+ (* 1/2 (sin phi1)) (* 1/2 (/ (cos phi1) phi2)))))
(*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2)))))
(* -1/2 (* phi2 (sin phi1)))
(*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) phi2) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) phi2) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(* -1 (* phi2 (- (* -1 (/ (- 1/2 (* 1/2 (cos phi1))) phi2)) (* -1/2 (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) phi2) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (*.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.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)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.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)))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(- (cos (neg lambda2)) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (*.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal 1 binary64) (sin.f64 lambda1)))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- 1 (cos (neg lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(* 1/2 (pow lambda2 2))
(*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 lambda2))
(* (pow lambda2 2) (+ 1/2 (* -1/24 (pow lambda2 2))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/24 binary64) (*.f64 lambda2 lambda2))))
(* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* 1/720 (pow lambda2 2)) 1/24))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 lambda2 lambda2)) #s(literal -1/24 binary64)))))
(* (pow lambda2 2) (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/720 (* -1/40320 (pow lambda2 2)))) 1/24))))
(*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 lambda2) (+.f64 (*.f64 (*.f64 lambda2 lambda2) (+.f64 #s(literal 1/720 binary64) (*.f64 #s(literal -1/40320 binary64) (*.f64 lambda2 lambda2)))) #s(literal -1/24 binary64)))))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+.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)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(+.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)))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(- 1/2 (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (cos.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(- 1/2 (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.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))))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.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))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- 1 (cos lambda2))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- (+ 1 (* -1 (* lambda1 (sin lambda2)))) (cos lambda2))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda1 (sin.f64 lambda2))) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (sin lambda2))) (* -1/2 (cos lambda2)))) (sin lambda2)))) (cos lambda2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (- (* 1/2 (* lambda2 (cos lambda1))) (sin lambda1)))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1)))) (sin lambda1)))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(- 1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))
(-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))

eval522.0ms (1.1%)

Compiler

Compiled 171222 to 6713 computations (96.1% saved)

prune739.0ms (1.5%)

Pruning

159 alts after pruning (159 fresh and 0 done)

PrunedKeptTotal
New2099832182
Fresh227698
Picked505
Done000
Total21261592285
Accuracy
75.2%
Counts
2285 → 159
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
58.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
50.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.8%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.7%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
33.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
43.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.7%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
52.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
31.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.8%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
29.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
17.3%
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.2%
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.1%
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
21.9%
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
28.4%
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
55.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
71.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
60.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
63.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))))))) (*.f64 R #s(literal 2 binary64)))
50.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) (*.f64 R #s(literal 2 binary64)))
60.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
53.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
54.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
72.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
53.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
52.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
19.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
46.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶44.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
34.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
38.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
32.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
19.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
26.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
26.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
21.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
32.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
34.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
▶56.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
39.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
26.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
▶72.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
18.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.1%
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.7%
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
35.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
20.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
22.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
17.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
26.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
25.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
31.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
25.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.2%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
21.9%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
7.5%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.2%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
5.4%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
8.9%
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
16.0%
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
8.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
9.2%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.5%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶16.3%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.7%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.6%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
11.2%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
12.0%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶15.9%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
60.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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))))))))
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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #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))))))))))
Compiler

Compiled 24466 to 13510 computations (44.8% saved)

simplify229.0ms (0.5%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
✓cost-diff0
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
✓cost-diff0
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
✓cost-diff0
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff384
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))
✓cost-diff384
(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))
✓cost-diff640
(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
✓cost-diff640
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff0
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
✓cost-diff0
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓cost-diff0
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
✓cost-diff0
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
✓cost-diff6656
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))
✓cost-diff6656
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))
✓cost-diff6656
(*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))))
✓cost-diff6656
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
✓cost-diff0
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
✓cost-diff0
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
✓cost-diff0
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
✓cost-diff0
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Rules
3346×*-lowering-*.f32
3346×*-lowering-*.f64
1810×fnmsub-define
1552×+-lowering-+.f64
1552×+-lowering-+.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
01182127
12702088
27342034
320282034
470442034
080102034
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* R 2))
(atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(* (cos phi1) (cos phi2))
(cos phi1)
phi1
(cos phi2)
phi2
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
1/2
(- lambda1 lambda2)
lambda1
lambda2
2
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))
(cos (* 1/2 phi2))
(* 1/2 phi2)
(sin (* 1/2 phi1))
(* 1/2 phi1)
(* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))
(cos (* 1/2 phi1))
(sin (* 1/2 phi2))
(sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2))))))
1
(* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2))))
(* (cos phi2) (sin (* -1/2 (- lambda1 lambda2))))
(sin (* -1/2 (- lambda1 lambda2)))
(* -1/2 (- lambda1 lambda2))
-1/2
(* R 2)
R
(* (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))) 2)
(* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))))
R
(atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda1
lambda2
2
(sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))
(+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))
1
(- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))
(/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2)
(* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0)))
(* (cos phi1) (cos phi2))
(cos phi1)
phi1
(cos phi2)
phi2
(- (cos (- lambda1 lambda2)) (cos 0))
(cos (- lambda1 lambda2))
(cos 0)
0
(+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))
1/2
(* (cos (* (- phi1 phi2) 1)) -1/2)
(cos (* (- phi1 phi2) 1))
(* (- phi1 phi2) 1)
(- phi1 phi2)
-1/2
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
1/2
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (cos phi1) (cos phi2))
(cos phi1)
phi1
(cos phi2)
phi2
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
2
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(sin (/ phi1 2))
(/ phi1 2)
(cos (/ phi2 2))
(/ phi2 2)
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(cos (/ phi1 2))
(sin (/ phi2 2))
(* R 2)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
1/2
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(* 2 (/ (- phi1 phi2) 2))
2
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
1
(cos (* (- lambda1 lambda2) 1))
(* (- lambda1 lambda2) 1)
(- lambda1 lambda2)
lambda1
lambda2
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)
(* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2)))
(+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1)
(+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))
(* (cos lambda1) (cos lambda2))
(cos lambda1)
(cos lambda2)
(* (sin lambda1) (sin lambda2))
(sin lambda1)
(sin lambda2)
-1
(* R 2)
R
(* (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))))
(+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(sin (* 1/2 (- phi1 phi2)))
(* 1/2 (- phi1 phi2))
1/2
(- phi1 phi2)
phi1
phi2
2
(* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(pow (sin (* 1/2 lambda1)) 2)
(sin (* 1/2 lambda1))
(* 1/2 lambda1)
lambda1
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
1
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) 2))
(/ (- lambda1 lambda2) 2)
(- lambda1 lambda2)
lambda2
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(sin (/ phi1 2))
(/ phi1 2)
(cos (/ phi2 2))
(/ phi2 2)
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(cos (/ phi1 2))
(sin (/ phi2 2))
(* R 2)
R
Outputs
(* (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* R 2))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
(atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
phi1
(cos phi2)
(cos.f64 phi2)
phi2
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(* 1/2 (- lambda1 lambda2))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
1/2
#s(literal 1/2 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
2
#s(literal 2 binary64)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))
(* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
(sin (* 1/2 phi1))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(* 1/2 phi1)
(/.f64 phi1 #s(literal 2 binary64))
(* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(sin (* 1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))))
1
#s(literal 1 binary64)
(* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))
(* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2))))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(* (cos phi2) (sin (* -1/2 (- lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(* -1/2 (- lambda1 lambda2))
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-1/2
#s(literal -1/2 binary64)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))) 2)
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))))
(*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
R
(atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
2
#s(literal 2 binary64)
(sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
1
#s(literal 1 binary64)
(- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))
(+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2)
(*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
phi1
(cos phi2)
(cos.f64 phi2)
phi2
(- (cos (- lambda1 lambda2)) (cos 0))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos 0)
#s(literal 1 binary64)
0
#s(literal 0 binary64)
(+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
1/2
#s(literal 1/2 binary64)
(* (cos (* (- phi1 phi2) 1)) -1/2)
(*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* (- phi1 phi2) 1))
(cos.f64 (-.f64 phi1 phi2))
(* (- phi1 phi2) 1)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
-1/2
#s(literal -1/2 binary64)
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(atan2.f64 (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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(* 1/2 (- lambda1 lambda2))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
1/2
#s(literal 1/2 binary64)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
phi1
(cos phi2)
(cos.f64 phi2)
phi2
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
2
#s(literal 2 binary64)
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal -2 binary64)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))))
(atan2.f64 (sqrt.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal -2 binary64)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(sqrt.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal -2 binary64)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal -2 binary64)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos (* 2 (/ (- phi1 phi2) 2)))
(cos.f64 (-.f64 phi1 phi2))
(* 2 (/ (- phi1 phi2) 2))
(-.f64 phi1 phi2)
2
#s(literal 2 binary64)
(/ (- phi1 phi2) 2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
(/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal -2 binary64))
(* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1))))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
1
#s(literal 1 binary64)
(cos (* (- lambda1 lambda2) 1))
(cos.f64 (-.f64 lambda1 lambda2))
(* (- lambda1 lambda2) 1)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))
(+.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)
(/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64))))) #s(literal 2 binary64))
(* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64)))))
(+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1)
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64)))
(+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(* (cos lambda1) (cos lambda2))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(cos lambda1)
(cos.f64 lambda1)
(cos lambda2)
(cos.f64 lambda2)
(* (sin lambda1) (sin lambda2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin lambda1)
(sin.f64 lambda1)
(sin lambda2)
(sin.f64 lambda2)
-1
#s(literal -1 binary64)
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R
(* (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))))))))
(atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))))))
(sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(* 1/2 (- phi1 phi2))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
1/2
#s(literal 1/2 binary64)
(- phi1 phi2)
(-.f64 phi1 phi2)
phi1
phi2
2
#s(literal 2 binary64)
(* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (cos phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos phi1)
(cos.f64 phi1)
(cos phi2)
(cos.f64 phi2)
(pow (sin (* 1/2 lambda1)) 2)
(pow.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) #s(literal 2 binary64))
(sin (* 1/2 lambda1))
(sin.f64 (/.f64 lambda1 #s(literal 2 binary64)))
(* 1/2 lambda1)
(/.f64 lambda1 #s(literal 2 binary64))
lambda1
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(-.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))))
1
#s(literal 1 binary64)
(- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))
(-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))))
(* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))
(*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(sin (/ (- lambda1 lambda2) 2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/ (- lambda1 lambda2) 2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda2
(sin (/ (- lambda1 lambda2) -2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/ (- lambda1 lambda2) -2)
(/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)
(pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))
(- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(* (sin (/ phi1 2)) (cos (/ phi2 2)))
(*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))
(sin (/ phi1 2))
(sin.f64 (/.f64 phi1 #s(literal 2 binary64)))
(/ phi1 2)
(/.f64 phi1 #s(literal 2 binary64))
(cos (/ phi2 2))
(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
(/ phi2 2)
(/.f64 phi2 #s(literal 2 binary64))
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))
(cos (/ phi1 2))
(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
(sin (/ phi2 2))
(sin.f64 (/.f64 phi2 #s(literal 2 binary64)))
(* R 2)
(*.f64 #s(literal 2 binary64) R)
R

localize1.9s (3.8%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy98.7%
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
✓accuracy77.6%
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy85.2%
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓accuracy85.2%
(+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64))
✓accuracy77.9%
(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓accuracy69.4%
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓accuracy98.9%
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓accuracy69.7%
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓accuracy85.2%
(-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))
✓accuracy77.9%
(cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
✓accuracy69.7%
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓accuracy69.4%
(cos.f64 (-.f64 lambda1 lambda2))
✓accuracy99.3%
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
✓accuracy99.2%
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
✓accuracy69.7%
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))
✓accuracy69.7%
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
Results
1.4s253×1valid
22.0ms2×2valid
2.0ms1×0valid
Compiler

Compiled 2243 to 119 computations (94.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 1.0s
ival-cos: 367.0ms (36.6% of total)
ival-sin: 228.0ms (22.7% of total)
ival-mult: 135.0ms (13.5% of total)
backward-pass: 78.0ms (7.8% of total)
ival-pow: 41.0ms (4.1% of total)
ival-div: 33.0ms (3.3% of total)
ival-atan2: 32.0ms (3.2% of total)
ival-sub: 30.0ms (3% of total)
ival-add: 29.0ms (2.9% of total)
ival-sqrt: 27.0ms (2.7% of total)
const: 3.0ms (0.3% of total)

series210.0ms (0.4%)

Counts
34 → 1344
Calls
Call 1
Inputs
#<alt (* (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* R 2))>
#<alt (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))) 2)>
#<alt (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))))>
#<alt (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))>
#<alt (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))>
#<alt (* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (* 1/2 (- lambda1 lambda2))>
#<alt (* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))>
#<alt (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))))>
#<alt (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))>
#<alt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))>
#<alt (* (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))>
#<alt (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))))>
#<alt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (cos (- lambda1 lambda2))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (cos (* (- phi1 phi2) 1))>
#<alt (- (cos (- lambda1 lambda2)) (cos 0))>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))>
#<alt (cos (* (- lambda1 lambda2) 1))>
#<alt (cos (* 2 (/ (- phi1 phi2) 2)))>
#<alt (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1)>
#<alt (- 1 (cos (* (- lambda1 lambda2) 1)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
Outputs
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (* -1/2 lambda2)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* 1/2 lambda1)>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))>
#<alt (* 1/2 lambda1)>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))>
#<alt (* 1/2 lambda1)>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (+ (* -1/2 lambda2) (* 1/2 lambda1))>
#<alt (* -1/2 lambda2)>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))>
#<alt (* -1/2 lambda2)>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))>
#<alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (+ (sin (* 1/2 (- phi1 phi2))) (* 1/8 (/ (* (pow lambda1 2) (* (cos phi1) (cos phi2))) (sin (* 1/2 (- phi1 phi2))))))>
#<alt (+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (* (pow lambda1 2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))))))>
#<alt (+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* (pow lambda1 2) (+ (* 1/2 (/ (* (pow lambda1 2) (- (* 1/1440 (* (cos phi1) (cos phi2))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (sin (* 1/2 (- phi1 phi2))))))))))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))>
#<alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (pow (sin (* 1/2 (- phi1 phi2))) 2)>
#<alt (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/4 (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (pow lambda1 2) (+ (* 1/4 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/48 (* (cos phi1) (cos phi2))) (* 1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (pow (sin (* 1/2 phi1)) 2)>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (sin (* 1/2 phi2)) 2)>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (neg (+ lambda2 (* -1 lambda1))))>
#<alt (cos (neg (+ lambda2 (* -1 lambda1))))>
#<alt (cos (neg (+ lambda2 (* -1 lambda1))))>
#<alt (cos (neg (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (cos (neg phi2))>
#<alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos phi1)>
#<alt (+ (cos phi1) (* phi2 (sin phi1)))>
#<alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))>
#<alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (- (cos (neg lambda2)) 1)>
#<alt (- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)>
#<alt (- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (- lambda1 lambda2)) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (- (cos (+ lambda1 (* -1 lambda2))) 1)>
#<alt (sin (* 1/2 lambda2))>
#<alt (+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))>
#<alt (+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 lambda1))>
#<alt (+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))>
#<alt (+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))>
#<alt (cos (neg lambda2))>
#<alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))>
#<alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos (* -1 (+ lambda2 (* -1 lambda1))))>
#<alt (cos lambda1)>
#<alt (+ (cos lambda1) (* lambda2 (sin lambda1)))>
#<alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))>
#<alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (- lambda1 lambda2))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (+ lambda1 (* -1 lambda2)))>
#<alt (cos (neg phi2))>
#<alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))>
#<alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1 (+ phi2 (* -1 phi1))))>
#<alt (cos phi1)>
#<alt (+ (cos phi1) (* phi2 (sin phi1)))>
#<alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))>
#<alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (- phi1 phi2))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (cos (+ phi1 (* -1 phi2)))>
#<alt (- (cos lambda2) 1)>
#<alt (- (+ (cos lambda2) (* lambda1 (sin lambda2))) 1)>
#<alt (- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) 1)>
#<alt (- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2)))))))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1)))))))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)>
#<alt (- 1 (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))>
#<alt (- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos lambda1))>
#<alt (- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))>
#<alt (- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (cos (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* -1/2 phi2))>
#<alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))>
#<alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (sin (* 1/2 phi1))>
#<alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (sin (* 1/2 (+ phi1 (* -1 phi2))))>
Calls

336 calls:

TimeVariablePointExpression
21.0ms
R
@inf
(* (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
12.0ms
lambda2
@inf
(* (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* R 2))
3.0ms
phi1
@inf
(sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))
3.0ms
lambda2
@-inf
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
2.0ms
phi1
@inf
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))

rewrite356.0ms (0.7%)

Algorithm
1×batch-egg-rewrite
Rules
3114×*-lowering-*.f32
3114×*-lowering-*.f64
2138×/-lowering-/.f32
2138×/-lowering-/.f64
1920×sum4-define
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0118981
1684762
25989762
08099762
Stop Event
1×iter limit
1×node limit
Counts
34 → 469
Calls
Call 1
Inputs
(* (atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (* R 2))
(atan2 (sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* (* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))) 2)
(* R (atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))))
(atan2 (sin (/ (- lambda1 lambda2) 2)) (sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))))))
(sqrt (+ 1 (- (/ (* (* (cos phi1) (cos phi2)) (- (cos (- lambda1 lambda2)) (cos 0))) 2) (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)))))
(* (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sin (* 1/2 (- lambda1 lambda2)))
(* 1/2 (- lambda1 lambda2))
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
(atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))
(* (atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2))))
(+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* 1/2 lambda1)) 2)))
(sin (* -1/2 (- lambda1 lambda2)))
(- (+ 1 (* (cos phi1) (* (* (cos phi2) (sin (* -1/2 (- lambda1 lambda2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(cos (- lambda1 lambda2))
(sin (/ (- lambda1 lambda2) 2))
(cos (* (- phi1 phi2) 1))
(- (cos (- lambda1 lambda2)) (cos 0))
(sin (/ (- lambda1 lambda2) -2))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(cos (* (- lambda1 lambda2) 1))
(cos (* 2 (/ (- phi1 phi2) 2)))
(+ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) -1)
(- 1 (cos (* (- lambda1 lambda2) 1)))
(sin (* 1/2 (- phi1 phi2)))
Outputs
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) R))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) R) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(pow.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 #s(literal 2 binary64) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) R)
(*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) R)
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(pow.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1/4 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (neg.f64 (/.f64 lambda2 #s(literal 2 binary64))))
(+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) lambda2)))
(+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) lambda2) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 0 binary64))
(-.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64)))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) (*.f64 #s(literal 2 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (/.f64 lambda1 #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 lambda2 #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda1 #s(literal 2 binary64))) (+.f64 (*.f64 (/.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))) (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda1 #s(literal 2 binary64))) (*.f64 (/.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64)))) (+.f64 (/.f64 lambda1 #s(literal 2 binary64)) (/.f64 lambda2 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda2 (*.f64 lambda2 lambda2))) #s(literal 1/2 binary64)) (+.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (*.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda1 lambda2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) #s(literal 2 binary64)) R)
(atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #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 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 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 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(-.f64 (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 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 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.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 phi1 phi2)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.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 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.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 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (*.f64 R (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) #s(literal 2 binary64))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)) R)
(atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 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 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))))
(pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))) #s(literal 1/4 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))
(+.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (/.f64 (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(fma.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64))))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))))
(*.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(*.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (/.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (cos.f64 (+.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(*.f64 (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) (+.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 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 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 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (neg.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)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (neg.f64 (cos.f64 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.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 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (*.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))) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 1 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 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 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda1 lambda2))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 (neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(cos.f64 (-.f64 phi1 phi2))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(*.f64 (+.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(/.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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.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 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (*.f64 #s(literal -2 binary64) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal -2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal -2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal -2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal -2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (/.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))))
(*.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(*.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) (+.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 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 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 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (neg.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)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (neg.f64 (cos.f64 (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.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 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (*.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))) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 1 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 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 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))
(*.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda1 lambda2))))
(+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 (neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(cos.f64 (-.f64 phi1 phi2))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(*.f64 (+.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal -1 binary64)))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1 binary64)))
(+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(/.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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.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 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (neg.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))) (-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(*.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (*.f64 #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 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))
(-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.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) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (-.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.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) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 1/2 binary64)))

simplify901.0ms (1.8%)

Algorithm
1×egg-herbie
Rules
6842×*-lowering-*.f32
6842×*-lowering-*.f64
3868×+-lowering-+.f64
3868×+-lowering-+.f32
1584×*-commutative
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0152655834
1519854564
0887254564
Stop Event
1×iter limit
1×node limit
Counts
1344 → 1344
Calls
Call 1
Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sin (* 1/2 (- phi1 phi2)))
(+ (sin (* 1/2 (- phi1 phi2))) (* 1/8 (/ (* (pow lambda1 2) (* (cos phi1) (cos phi2))) (sin (* 1/2 (- phi1 phi2))))))
(+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (* (pow lambda1 2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))))))
(+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* (pow lambda1 2) (+ (* 1/2 (/ (* (pow lambda1 2) (- (* 1/1440 (* (cos phi1) (cos phi2))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (sin (* 1/2 (- phi1 phi2))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/4 (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (pow lambda1 2) (+ (* 1/4 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/48 (* (cos phi1) (cos phi2))) (* 1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (sin (* 1/2 phi2)) 2)
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(- (cos (neg lambda2)) 1)
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (- lambda1 lambda2)) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(sin (* 1/2 lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 lambda1))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(- (cos lambda2) 1)
(- (+ (cos lambda2) (* lambda1 (sin lambda2))) 1)
(- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) 1)
(- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2)))))))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))) 1)
(- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1)))))))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(- 1 (cos (neg lambda2)))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(- 1 (cos lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 phi1 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 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 phi2 #s(literal 1/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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (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 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2)))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))))
(*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (- phi1 phi2))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) (cos 0)))))) (* -1/2 (cos (+ phi1 (* -1 phi2)))))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (neg.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (*.f64 phi1 (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2)))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* -1/12 (sin (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))) (* 1/4 (cos (neg phi2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (neg.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal -1/12 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1)))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* 1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))) (* 1/4 (cos phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* -1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sin.f64 phi1) (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg (+ lambda2 (* -1 lambda1)))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 lambda2 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 lambda2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))) (* -1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))) (* -1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sin (* 1/2 (- lambda1 lambda2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda2) lambda1) #s(literal -1/2 binary64)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda1))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 lambda2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) lambda1) lambda2) #s(literal -1/2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) lambda2)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) lambda2)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) lambda2)))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1))))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* 1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 1/12 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (*.f64 phi2 (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (*.f64 #s(literal -1/12 binary64) (sin.f64 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))) (-.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 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 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.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 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.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 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda1 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.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 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 lambda2 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda2 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi1 (+.f64 (*.f64 phi1 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2))))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal -1/12 binary64)) (*.f64 (cos.f64 phi2) #s(literal 1/4 binary64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2))))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (*.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)) (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2)))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 lambda2))) (*.f64 #s(literal -1/12 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.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 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda1))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.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 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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (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 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 phi1 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 phi1 (*.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/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) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi2 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 phi2 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (*.f64 phi2 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (*.f64 phi2 (*.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+ (sin (* 1/2 (- phi1 phi2))) (* 1/8 (/ (* (pow lambda1 2) (* (cos phi1) (cos phi2))) (sin (* 1/2 (- phi1 phi2))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 lambda1 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (* (pow lambda1 2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -1/64 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(+ (sin (* 1/2 (- phi1 phi2))) (* (pow lambda1 2) (+ (* 1/8 (/ (* (cos phi1) (cos phi2)) (sin (* 1/2 (- phi1 phi2))))) (* (pow lambda1 2) (+ (* 1/2 (/ (* (pow lambda1 2) (- (* 1/1440 (* (cos phi1) (cos phi2))) (* 1/8 (/ (* (cos phi1) (* (cos phi2) (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))) (sin (* 1/2 (- phi1 phi2))))) (* 1/2 (/ (- (* -1/48 (* (cos phi1) (cos phi2))) (* 1/64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (sin (* 1/2 (- phi1 phi2))))))))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (*.f64 (*.f64 lambda1 lambda1) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 (*.f64 #s(literal 1/1440 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -1/64 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -1/64 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 phi1 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+ (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/4 (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (cos.f64 phi2)))))
(+ (* (pow lambda1 2) (+ (* 1/4 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/48 (* (cos phi1) (cos phi2))) (* 1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 lambda1 lambda1) (+.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (*.f64 #s(literal 1/1440 binary64) (*.f64 lambda1 lambda1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #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))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) #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))))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (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)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (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))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #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))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (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))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #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))))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (sin (* 1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (+.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (neg.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 lambda2))))) (sin.f64 lambda2))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2)))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) phi2)) (sin.f64 phi1))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))) (sin.f64 phi1))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(- (cos (neg lambda2)) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2)))) #s(literal -1 binary64)))
(- (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (+.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (neg.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 lambda2))))) (sin.f64 lambda2))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (neg (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 lambda1)))) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))))) #s(literal -1 binary64)))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (- lambda1 lambda2)) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (+ lambda1 (* -1 lambda2))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.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 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.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 (*.f64 #s(literal 1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #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))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 phi1 (+.f64 (*.f64 phi1 (-.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) #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))))) (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (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)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (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))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #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))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (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))))) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (+.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi1) #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))))) (*.f64 phi2 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* -1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (+ (* 1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))) (*.f64 lambda1 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 lambda2 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))) (*.f64 lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (*.f64 (*.f64 #s(literal -1/48 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal 1/12 binary64)))))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (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))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (+.f64 (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (neg.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 lambda2))))) (sin.f64 lambda2))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2)))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) phi2)) (sin.f64 phi1))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(+.f64 (cos.f64 phi1) (*.f64 phi2 (+.f64 (*.f64 phi2 (+.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))) (sin.f64 phi1))))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(- (cos lambda2) 1)
(+.f64 (cos.f64 lambda2) #s(literal -1 binary64))
(- (+ (cos lambda2) (* lambda1 (sin lambda2))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (*.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2)))) #s(literal -1 binary64)))
(- (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2)))))))) 1)
(+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (*.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2))))))) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (cos lambda1) 1)
(+.f64 (cos.f64 lambda1) #s(literal -1 binary64))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 lambda1)))) #s(literal -1 binary64)))
(- (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1)))))))) 1)
(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (*.f64 lambda2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (*.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))))) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 1)
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)))
(- 1 (cos (neg lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(- (+ 1 (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (neg.f64 (*.f64 lambda1 (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda1 (-.f64 (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))) (sin.f64 lambda2))) (cos.f64 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 lambda2 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 lambda1)) (sin.f64 lambda1))) (cos.f64 lambda1)))
(- (+ 1 (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))
(-.f64 (+.f64 #s(literal 1 binary64) (*.f64 lambda2 (-.f64 (*.f64 lambda2 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (sin.f64 lambda1)))) (cos.f64 lambda1))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (- lambda1 lambda2)))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (+ lambda1 (* -1 lambda2))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 phi2 (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (*.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))

eval597.0ms (1.2%)

Compiler

Compiled 165070 to 6464 computations (96.1% saved)

prune1.3s (2.7%)

Pruning

197 alts after pruning (197 fresh and 0 done)

PrunedKeptTotal
New2139962235
Fresh53101154
Picked505
Done000
Total21971972394
Accuracy
92.9%
Counts
2394 → 197
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
57.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.1%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
43.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.7%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
52.0%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
31.9%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.4%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.2%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
17.7%
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
21.9%
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
27.8%
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
28.4%
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
55.2%
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
29.0%
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
53.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
63.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))))))) (*.f64 R #s(literal 2 binary64)))
54.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
53.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
72.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
52.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
33.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
44.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
59.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
46.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
31.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
33.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
35.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
34.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
34.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.7%
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
38.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
38.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
32.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
19.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
26.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
21.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
75.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
75.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
38.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
75.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
75.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) (+.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))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
75.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
32.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
34.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
40.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
39.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
38.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
37.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
26.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
73.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
60.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
53.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
66.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
46.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
45.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
50.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) (*.f64 R #s(literal 2 binary64)))
60.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
46.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
54.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
55.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
46.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
58.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
18.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
45.1%
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
40.7%
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
33.4%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
38.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
45.4%
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.2%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
20.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
22.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
17.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
40.6%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
26.1%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
25.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
41.8%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
56.9%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.3%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
25.5%
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
36.2%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
21.9%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
7.5%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
35.2%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
5.4%
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
8.9%
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.8%
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
16.5%
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
16.0%
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
12.2%
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.3%
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
15.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
16.1%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.3%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.8%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.6%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
13.9%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.0%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
14.4%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
16.0%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
11.6%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
11.2%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
12.0%
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
56.3%
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
17.4%
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
14.1%
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
14.2%
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
15.8%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
15.7%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
15.9%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
16.3%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
12.0%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
11.6%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
13.1%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
13.3%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
15.9%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
15.7%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
16.2%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
9.9%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
10.6%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
14.0%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
16.1%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
16.0%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
13.7%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
14.0%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
15.8%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
12.0%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
11.2%
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
14.2%
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
46.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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))))))))
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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
Compiler

Compiled 37436 to 10327 computations (72.4% saved)

regimes1.9s (3.9%)

Counts
335 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (-.f64 (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (fma.f64 (neg.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) (+.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))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (+.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))))))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

163.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
142.0ms
phi2
135.0ms
phi1
131.0ms
lambda1
127.0ms
R
Results
AccuracySegmentsBranch
77.8%2R
87.1%3lambda1
87.0%3lambda2
83.2%3phi1
82.3%3phi2
80.6%3(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.9%3(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
81.9%3(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
81.9%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.5%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
84.0%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
84.0%3(-.f64 lambda1 lambda2)
Compiler

Compiled 296 to 142 computations (52% saved)

regimes670.0ms (1.4%)

Counts
312 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

124.0ms
lambda1
Results
AccuracySegmentsBranch
87.1%3lambda1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes1.0s (2.1%)

Counts
307 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

485.0ms
lambda1
Results
AccuracySegmentsBranch
87.1%3lambda1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes630.0ms (1.3%)

Counts
304 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.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 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

100.0ms
lambda1
Results
AccuracySegmentsBranch
87.0%3lambda1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes689.0ms (1.4%)

Counts
299 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

2 calls:

113.0ms
lambda2
102.0ms
lambda1
Results
AccuracySegmentsBranch
86.9%3lambda2
79.1%3lambda1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes1.4s (2.8%)

Counts
298 → 2
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (*.f64 R #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 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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) (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (neg.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.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 (*.f64 phi2 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 lambda1 (+.f64 (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 #s(literal -1/48 binary64)))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

9 calls:

140.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)))))))))
123.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
114.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
109.0ms
phi1
101.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
78.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)))))))))
78.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))))))))
79.2%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)))))
75.6%1phi2
75.6%1phi1
78.9%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
78.9%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
78.9%3(-.f64 lambda1 lambda2)
79.1%3lambda2
Compiler

Compiled 214 to 106 computations (50.5% saved)

regimes412.0ms (0.8%)

Counts
250 → 2
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 lambda1 (+.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) phi1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (*.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.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 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (pow.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 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

105.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
79.2%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Compiler

Compiled 33 to 19 computations (42.4% saved)

regimes1.3s (2.7%)

Counts
234 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))) #s(literal 1 binary64)))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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 (atan2.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) lambda1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.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(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi2 (+.f64 (*.f64 phi2 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))) (*.f64 #s(literal -1/2 binary64) (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))) #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 8 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.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))))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2))) (/.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (cos.f64 (+.f64 lambda1 lambda2)))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.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 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/8 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 (-.f64 #s(literal 0 binary64) lambda2)) (neg.f64 (*.f64 (sin.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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))) (-.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 phi2 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.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 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #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 phi2))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

105.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
104.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
94.0ms
R
91.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
85.0ms
lambda2
Results
AccuracySegmentsBranch
60.2%1phi1
60.2%1phi2
60.2%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
60.2%1(-.f64 lambda1 lambda2)
60.2%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
60.2%1lambda1
60.2%1lambda2
60.2%1R
60.2%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.2%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.2%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.2%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.2s (2.4%)

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

12 calls:

103.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
102.0ms
phi2
101.0ms
lambda2
92.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
81.0ms
R
Results
AccuracySegmentsBranch
59.5%1lambda1
59.5%1phi2
59.5%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
59.5%1R
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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
59.5%1(-.f64 lambda1 lambda2)
59.5%1lambda2
59.5%1phi1
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(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 296 to 142 computations (52% saved)

regimes380.0ms (0.8%)

Counts
120 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.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 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 phi2) (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 phi2 (+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) phi2) (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi2 (-.f64 (/.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi1) (/.f64 (cos.f64 phi1) phi2))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 lambda2) (*.f64 lambda1 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (+.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

49.0ms
lambda2
47.0ms
lambda1
42.0ms
(-.f64 lambda1 lambda2)
35.0ms
R
33.0ms
phi2
Results
AccuracySegmentsBranch
56.3%1phi2
56.3%1R
56.3%1lambda1
56.3%1lambda2
56.3%1phi1
56.3%1(-.f64 lambda1 lambda2)
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes315.0ms (0.6%)

Counts
93 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

65.0ms
phi2
44.0ms
(-.f64 lambda1 lambda2)
43.0ms
phi1
31.0ms
R
31.0ms
lambda1
Results
AccuracySegmentsBranch
56.3%1phi2
56.3%1R
56.3%1lambda2
56.3%1(-.f64 lambda1 lambda2)
56.3%1lambda1
56.3%1phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes292.0ms (0.6%)

Counts
90 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (*.f64 (*.f64 lambda1 (cos.f64 phi2)) (sin.f64 lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

41.0ms
R
41.0ms
(-.f64 lambda1 lambda2)
35.0ms
phi2
33.0ms
phi1
32.0ms
lambda1
Results
AccuracySegmentsBranch
56.3%1phi2
56.3%1R
56.3%1lambda2
56.3%1lambda1
56.3%1(-.f64 lambda1 lambda2)
56.3%1phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes184.0ms (0.4%)

Counts
70 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.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) phi1) phi2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (-.f64 (*.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 lambda1 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) 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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (+.f64 (*.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 0 binary64)))) #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

28.0ms
lambda2
22.0ms
lambda1
21.0ms
(-.f64 lambda1 lambda2)
21.0ms
phi1
21.0ms
R
Results
AccuracySegmentsBranch
56.3%1phi2
56.3%1R
56.3%1lambda2
56.3%1lambda1
56.3%1(-.f64 lambda1 lambda2)
56.3%1phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes161.0ms (0.3%)

Counts
53 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 #s(literal 1/4 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 phi1 (+.f64 (*.f64 phi1 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 phi1 phi2)))) (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 phi1 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

29.0ms
R
28.0ms
phi1
27.0ms
lambda1
15.0ms
phi2
15.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
56.5%3phi2
46.8%3R
43.7%2lambda2
44.3%2lambda1
47.4%3(-.f64 lambda1 lambda2)
56.6%3phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes127.0ms (0.3%)

Counts
45 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

5 calls:

26.0ms
(-.f64 lambda1 lambda2)
19.0ms
phi1
16.0ms
lambda1
13.0ms
R
13.0ms
phi2
Results
AccuracySegmentsBranch
41.3%1lambda1
41.3%1R
45.8%3(-.f64 lambda1 lambda2)
45.5%3phi2
41.3%1phi1
Compiler

Compiled 32 to 26 computations (18.8% saved)

regimes148.0ms (0.3%)

Counts
44 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (+.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

42.0ms
R
25.0ms
lambda1
20.0ms
(-.f64 lambda1 lambda2)
14.0ms
lambda2
12.0ms
phi2
Results
AccuracySegmentsBranch
27.4%2R
27.3%2lambda1
29.8%3phi1
27.6%2lambda2
31.9%3phi2
31.4%3(-.f64 lambda1 lambda2)
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes42.0ms (0.1%)

Counts
40 → 3
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal -1 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

25.0ms
phi2
Results
AccuracySegmentsBranch
31.9%3phi2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes100.0ms (0.2%)

Counts
33 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) lambda2) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (+.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

6 calls:

30.0ms
lambda1
22.0ms
phi2
9.0ms
(-.f64 lambda1 lambda2)
9.0ms
lambda2
9.0ms
phi1
Results
AccuracySegmentsBranch
25.5%1lambda1
25.5%1R
25.5%1lambda2
25.5%1phi1
25.5%1(-.f64 lambda1 lambda2)
25.5%1phi2
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes48.0ms (0.1%)

Counts
18 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (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))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) (+.f64 (*.f64 lambda1 (sin.f64 lambda2)) #s(literal -1 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))))) #s(literal 2 binary64))
(*.f64 (atan2.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sqrt.f64 (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
Calls

6 calls:

17.0ms
lambda1
6.0ms
phi1
6.0ms
lambda2
6.0ms
(-.f64 lambda1 lambda2)
6.0ms
R
Results
AccuracySegmentsBranch
16.1%1lambda2
16.1%1phi2
16.1%1R
16.1%1lambda1
16.1%1(-.f64 lambda1 lambda2)
16.1%1phi1
Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes22.0ms (0%)

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
Outputs
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
Calls

6 calls:

15.0ms
phi1
1.0ms
lambda2
1.0ms
phi2
1.0ms
(-.f64 lambda1 lambda2)
1.0ms
R
Results
AccuracySegmentsBranch
16.0%1lambda1
16.0%1(-.f64 lambda1 lambda2)
16.0%1R
16.0%1phi1
16.0%1lambda2
16.0%1phi2
Compiler

Compiled 38 to 31 computations (18.4% saved)

bsearch295.0ms (0.6%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
131.0ms
3.6851591852338643e-32
2.034683144525099e-20
133.0ms
-11361851.684071817
-4.352725545656691e-6
Results
233.0ms286×1valid
16.0ms34×0valid
Compiler

Compiled 3648 to 1713 computations (53% saved)

Precisions
Click to see histograms. Total time spent on operations: 212.0ms
ival-sub: 50.0ms (23.6% of total)
ival-cos: 50.0ms (23.6% of total)
ival-sin: 36.0ms (17% of total)
ival-mult: 25.0ms (11.8% of total)
ival-sqrt: 12.0ms (5.7% of total)
backward-pass: 10.0ms (4.7% of total)
ival-div: 9.0ms (4.2% of total)
ival-pow: 8.0ms (3.8% of total)
ival-atan2: 7.0ms (3.3% of total)
ival-add: 3.0ms (1.4% of total)
const: 1.0ms (0.5% of total)

bsearch314.0ms (0.6%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
134.0ms
3.6851591852338643e-32
2.034683144525099e-20
123.0ms
-11361851.684071817
-4.352725545656691e-6
Results
226.0ms285×1valid
15.0ms35×0valid
Compiler

Compiled 3628 to 1633 computations (55% saved)

Precisions
Click to see histograms. Total time spent on operations: 213.0ms
ival-cos: 53.0ms (24.9% of total)
ival-sin: 43.0ms (20.2% of total)
ival-div: 26.0ms (12.2% of total)
ival-mult: 26.0ms (12.2% of total)
ival-atan2: 24.0ms (11.3% of total)
ival-sub: 11.0ms (5.2% of total)
ival-sqrt: 9.0ms (4.2% of total)
backward-pass: 9.0ms (4.2% of total)
ival-pow: 8.0ms (3.8% of total)
ival-add: 3.0ms (1.4% of total)
const: 1.0ms (0.5% of total)

bsearch270.0ms (0.5%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
121.0ms
3.6851591852338643e-32
2.034683144525099e-20
126.0ms
-11361851.684071817
-4.352725545656691e-6
Results
223.0ms278×1valid
9.0ms42×0valid
Compiler

Compiled 3528 to 1673 computations (52.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 199.0ms
ival-cos: 49.0ms (24.6% of total)
ival-mult: 46.0ms (23.1% of total)
ival-sin: 37.0ms (18.6% of total)
ival-sub: 23.0ms (11.5% of total)
ival-div: 9.0ms (4.5% of total)
ival-sqrt: 9.0ms (4.5% of total)
backward-pass: 9.0ms (4.5% of total)
ival-pow: 8.0ms (4% of total)
ival-atan2: 7.0ms (3.5% of total)
ival-add: 3.0ms (1.5% of total)
const: 1.0ms (0.5% of total)

bsearch320.0ms (0.7%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
153.0ms
3.6851591852338643e-32
2.034683144525099e-20
142.0ms
-11361851.684071817
-4.352725545656691e-6
Results
271.0ms281×1valid
8.0ms39×0valid
Compiler

Compiled 3448 to 1913 computations (44.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 224.0ms
ival-mult: 46.0ms (20.5% of total)
ival-cos: 39.0ms (17.4% of total)
ival-sin: 36.0ms (16% of total)
ival-div: 21.0ms (9.4% of total)
ival-pow: 20.0ms (8.9% of total)
ival-add: 19.0ms (8.5% of total)
backward-pass: 17.0ms (7.6% of total)
ival-sub: 11.0ms (4.9% of total)
ival-sqrt: 9.0ms (4% of total)
ival-atan2: 7.0ms (3.1% of total)
const: 1.0ms (0.4% of total)

bsearch281.0ms (0.6%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
142.0ms
1.0878594919527643e-22
6.664830606536158e-16
111.0ms
-8.443500883161461e-10
-5.1711315998061915e-11
Results
235.0ms231×1valid
5.0ms25×0valid
Compiler

Compiled 2775 to 1537 computations (44.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 194.0ms
ival-cos: 54.0ms (27.9% of total)
ival-sin: 42.0ms (21.7% of total)
ival-mult: 34.0ms (17.6% of total)
backward-pass: 25.0ms (12.9% of total)
ival-sub: 9.0ms (4.6% of total)
ival-div: 7.0ms (3.6% of total)
ival-sqrt: 7.0ms (3.6% of total)
ival-pow: 6.0ms (3.1% of total)
ival-atan2: 6.0ms (3.1% of total)
ival-add: 3.0ms (1.5% of total)
const: 1.0ms (0.5% of total)

bsearch22.0ms (0%)

Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.2023790479369007e-5
0.0006533536279239269
Compiler

Compiled 51 to 34 computations (33.3% saved)

bsearch7.0ms (0%)

Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.2023790479369007e-5
0.0006533536279239269
Compiler

Compiled 51 to 34 computations (33.3% saved)

bsearch164.0ms (0.3%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
122.0ms
2.714088216188171e-16
1.4537680338524071e-9
33.0ms
-5.627515113098708
-4.131403276249525
Results
138.0ms156×1valid
8.0ms36×0valid
Compiler

Compiled 1518 to 921 computations (39.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 130.0ms
ival-pow: 26.0ms (20% of total)
ival-cos: 23.0ms (17.7% of total)
ival-sin: 21.0ms (16.1% of total)
ival-atan2: 15.0ms (11.5% of total)
ival-mult: 14.0ms (10.8% of total)
ival-div: 11.0ms (8.5% of total)
ival-sub: 6.0ms (4.6% of total)
backward-pass: 6.0ms (4.6% of total)
ival-sqrt: 5.0ms (3.8% of total)
ival-add: 2.0ms (1.5% of total)
const: 1.0ms (0.8% of total)

bsearch1.0ms (0%)

Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
1.751709003192604e-47
1.2563678741462535e-35
0.0ms
-4.352725545656691e-6
-6.664830606536158e-16
Compiler

Compiled 72 to 33 computations (54.2% saved)

bsearch200.0ms (0.4%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
84.0ms
9.964744758617517e-33
2.0028224577973973e-30
104.0ms
-1.0454544727629582e-64
-3.3861448221975e-67
Results
172.0ms213×1valid
5.0ms27×0valid
Compiler

Compiled 1638 to 1098 computations (33% saved)

Precisions
Click to see histograms. Total time spent on operations: 151.0ms
ival-atan2: 34.0ms (22.5% of total)
ival-sin: 28.0ms (18.5% of total)
ival-cos: 21.0ms (13.9% of total)
ival-sqrt: 20.0ms (13.2% of total)
ival-mult: 18.0ms (11.9% of total)
ival-sub: 8.0ms (5.3% of total)
ival-div: 7.0ms (4.6% of total)
ival-pow: 6.0ms (4% of total)
backward-pass: 6.0ms (4% of total)
ival-add: 2.0ms (1.3% of total)
const: 1.0ms (0.7% of total)

bsearch176.0ms (0.4%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
77.0ms
9.964744758617517e-33
2.0028224577973973e-30
87.0ms
-1.0454544727629582e-64
-3.3861448221975e-67
Results
149.0ms214×1valid
5.0ms26×0valid
Compiler

Compiled 1623 to 1083 computations (33.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 123.0ms
ival-cos: 32.0ms (26% of total)
ival-sin: 29.0ms (23.5% of total)
ival-mult: 18.0ms (14.6% of total)
backward-pass: 9.0ms (7.3% of total)
ival-sub: 8.0ms (6.5% of total)
ival-div: 7.0ms (5.7% of total)
ival-pow: 6.0ms (4.9% of total)
ival-sqrt: 6.0ms (4.9% of total)
ival-atan2: 5.0ms (4.1% of total)
ival-add: 2.0ms (1.6% of total)
const: 1.0ms (0.8% of total)

simplify155.0ms (0.3%)

Algorithm
1×egg-herbie
Rules
772×distribute-lft-neg-in_binary64
406×neg-mul-1_binary64
392×neg-sub0_binary64
370×*-commutative_binary64
328×sub-neg_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03262439
15552439
26762439
37742439
48662439
59632439
611052439
713122439
816772439
920682439
1023922439
1125602439
1226102439
1326192439
1426192439
Stop Event
1×saturated
Calls
Call 1
Inputs
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -4980620899901579/18446744073709551616 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -2030995376952577/2417851639229258349412352 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 6591783121186793/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 5902958103587057/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 5902958103587057/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(if (<=.f64 phi1 #s(literal -4728779608739021/1125899906842624 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7011769753764849/4835703278458516698824704 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -4722366482869645/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 4113761393303015/205688069665150755269371147819668813122841983204197482918576128 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -6165697167708613/59285549689505892056868344324448208820874232148807968788202283012051522375647232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 677942654035331/356811923176489970264571492362373784095686656 binary64)) (*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7778264119263173/1897137590064188545819787018382342682267975428761855001222473056385648716020711424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 1313067877289483/11417981541647679048466287755595961091061972992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
Outputs
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))))))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))))))
(if (<=.f64 lambda1 #s(literal -4980620899901579/18446744073709551616 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -4980620899901579/18446744073709551616 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))))))
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -5312662293228351/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 6646139978924579/332306998946228968225951765070086144 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))))))
(if (<=.f64 lambda2 #s(literal -2030995376952577/2417851639229258349412352 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 6591783121186793/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.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))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -2030995376952577/2417851639229258349412352 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda2 #s(literal 6591783121186793/10141204801825835211973625643008 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64))))))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 5902958103587057/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (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)))))) #s(literal 5902958103587057/295147905179352825856 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 5902958103587057/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (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)))))) #s(literal 5902958103587057/295147905179352825856 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) #s(literal 2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.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 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(if (<=.f64 phi1 #s(literal -4728779608739021/1125899906842624 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7011769753764849/4835703278458516698824704 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -4728779608739021/1125899906842624 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (if (<=.f64 phi1 #s(literal 7011769753764849/4835703278458516698824704 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -4722366482869645/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 4113761393303015/205688069665150755269371147819668813122841983204197482918576128 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -4722366482869645/1180591620717411303424 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 4113761393303015/205688069665150755269371147819668813122841983204197482918576128 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))
(if (<=.f64 phi2 #s(literal -6165697167708613/59285549689505892056868344324448208820874232148807968788202283012051522375647232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 677942654035331/356811923176489970264571492362373784095686656 binary64)) (*.f64 (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -6165697167708613/59285549689505892056868344324448208820874232148807968788202283012051522375647232 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (if (<=.f64 phi2 #s(literal 677942654035331/356811923176489970264571492362373784095686656 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (*.f64 (sqrt.f64 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))
(if (<=.f64 phi2 #s(literal -7778264119263173/1897137590064188545819787018382342682267975428761855001222473056385648716020711424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 1313067877289483/11417981541647679048466287755595961091061972992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -7778264119263173/1897137590064188545819787018382342682267975428761855001222473056385648716020711424 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (if (<=.f64 phi2 #s(literal 1313067877289483/11417981541647679048466287755595961091061972992 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.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 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))))))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (*.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))))))
(*.f64 (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 R (atan2.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (+.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))))))

soundness5.7s (11.7%)

Rules
7588×*-lowering-*.f32
7588×*-lowering-*.f64
6842×*-lowering-*.f32
6842×*-lowering-*.f64
5728×*-lowering-*.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
01111022
1704800
27621800
08118800
072525816
1252125199
0923825199
01061074
1586936
25916936
08064936
0203659480
1597857600
0805757600
0152655834
1519854564
0887254564
0200866258
1591164705
0804664705
041424
1223406
21936396
011141396
02665
15563
211763
329063
470463
5143363
6342163
7544363
8696063
0808663
0118981
1684762
25989762
08099762
Stop Event
1×fuel
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
Compiler

Compiled 6927 to 2585 computations (62.7% saved)

preprocess334.0ms (0.7%)

Remove

(negabs R)

Compiler

Compiled 10478 to 2318 computations (77.9% saved)

end0.0ms (0%)

Profiling

Loading profile data...